vb.net 排列組合算法

看了你說遞歸的效率低。那么你可以不用的。

成都創(chuàng)新互聯(lián)公司堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站建設(shè)、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的川匯網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

給出的方法就是先生成第一個排列，然后每次調(diào)用下面的函數(shù)給出下一個排列，這樣生成的效率很高，這個函數(shù)可以內(nèi)聯(lián)。

這個是很經(jīng)典的排列組合算法啊？在網(wǎng)上能搜到一大堆。

大概是那種帶指向的移動的算法。我給你搜一個吧。

我找了幾個，這個是我覺得說的比較清楚的，你可以仔細(xì)參考一下，看不懂的話再搜點別的好了。。

全排列的算法跟這個不太一樣的。需要有點改動的。

至于語言的話，應(yīng)該不會有太大問題吧。。basic版的確實比較少，現(xiàn)在我也比較懶不想動手寫。。還是要靠你自己啦。

★生成排列的算法：

比如要生成5，4，3，2，1的全排列，首先找出一個最小的排列12345, 然后依次調(diào)用n!次STL算法中的next_permutation()即可輸出所有的全排列情況。所以這種算法的細(xì)節(jié)就是STL algorithm中next_permutation()的實現(xiàn)機制。詳細(xì)的實現(xiàn)代碼，大伙可以參考侯捷的《STL源代碼剖析》，在這里我只說一下我的理解：

1 首先從最尾端開始往前尋找兩個相鄰元素，令第一個元素為*i,第二個元素為*ii，且滿足*i*ii，找到這樣一組相鄰的元素后。

2 再從最尾端開始往前檢驗，找出第一個大于*i的元素，令為*k，將i,k元素對調(diào)。

3 再將ii及ii之后的所有元素顛倒排列，此即所求之"下一個"排列。

prev_permutation()算法的思路也基本相同，只不過它們尋找的"拐點"不同，在next_permutation()算法中尋找的是峰值拐點，而在prev_permutation()算法中尋找的是谷值拐點。另外，在第二步中，prev_permutation()要找的是第一個小于*i的元素而不是第一個大于*i的元素。

具體例子，有空再舉，現(xiàn)在時間太晚了:)

★生成組合的算法：

如下面截圖所示，分全組合和r-組合兩種情況。

這里有一段核心代碼：

//--------------------------------------------------------

// Generate next combination (algorithm from Rosen p. 286)

//--------------------------------------------------------

public int[] getNext () {

if (numLeft.equals (total)) {

numLeft = numLeft.subtract (BigInteger.ONE);

return a;

}

int i = r - 1;

while (a[i] == n - r + i) {

i--;

}

a[i] = a[i] + 1;

for (int j = i + 1; j r; j++) {

a[j] = a[i] + j - i;

}

numLeft = numLeft.subtract (BigInteger.ONE);

return a; //這里返回的a數(shù)組，存儲的就是下標(biāo)的排列組合。

}

到這里，也許大伙會有一個疑問，假如要求的不是數(shù)字的排列組合，而是字符或字符串的排列組合呢？怎么辦？其實很簡單，你只要拿數(shù)組的下標(biāo)來做排列組合，返回他們下標(biāo)的排列組合，然后再到原數(shù)組中讀取字符串值，就可以輸出全部的排列組合結(jié)果。

vb6.0 排列組合

看了你的例子，我想這個程序核心包含兩部分：

1、排列組合（abc acb bac）

2、逆序輸出（bca cab cba）

細(xì)心的你一定發(fā)現(xiàn)了，后三組是前三組的逆序輸出，因此只排列前一半即可。

顯然，用循環(huán)語句來實現(xiàn)這個功能，具體語言格式我也想不起來了，就說說思路吧。

先定義三個數(shù)1，2，3。第一輪循環(huán)，令a=1,b=2,c=3,然后按從小到大輸出；

第二輪循環(huán)，令a=1,c=2,b=3,按從小到大輸出；

以此類推……

vb.net 排列組合 代碼

第一題:

不需要任何控件,代碼如下:

Private Sub Form_Click()

Dim A() As Integer, N As Integer

Dim St As String, I As Integer, J As Integer

Randomize

Do

St = InputBox("數(shù)字的個數(shù)", "輸入", Int(Rnd * 100))

If St = "" Then

MsgBox "請輸入數(shù)字!"

Else

N = Int(Val(St))

If N 1 Then

MsgBox "請輸入大于0的數(shù)字!"

Else

Exit Do

End If

End If

Loop

ReDim A(N)

For I = 1 To N

Do

St = InputBox("第" + Str(I) + "個數(shù)字", "輸入", Int(Rnd * 100))

If St = "" Then

MsgBox "請輸入數(shù)字!"

Else

A(I) = Int(Val(St))

Exit Do

End If

Loop

Next

For I = 1 To N - 1

For J = I + 1 To N

If A(I) A(J) Then

A(0) = A(I)

A(I) = A(J)

A(J) = A(0)

End If

Next

Next

For I = 1 To N

Open App.Path "\" Trim(Str(I)) ".txt" For Output As #1

Print #1, A(I)

Close #1

Next

Print "已經(jīng)把"; N; "個數(shù)寫入到"; App.Path; "\1.txt 到 "; N; ".txt中.請查看."

End Sub

'已經(jīng)運行過.

第二題:

DIM 是變量聲明語句,它的格式為:

dim 變量名[as 格式] [,變量名[as 格式][,變量名[as 格式]......]

其中:

變量名:以字母或漢字開始的字串,代表一個變量

格式有以下幾種:

屬于數(shù)字的有五種:

(1)字節(jié)型:byte可取值0-255

(2)整形:integer可取值-32768至32767

(3)長整形:long(可取值范圍很大的正負(fù)整數(shù))

(4)單精度型:single(可取值小數(shù))

(5)雙精度型:double(可取值范圍更大,小數(shù)位數(shù)更多的小數(shù))

字符串型:string(可代表由字母\數(shù)字或漢字組成的字符集合)

布爾型:boolean(取值為ture\false)

日期型:date(可表示形如2009-5-26 02:36這樣的組合)

如果要用姓名\住址\單位名稱...等用字符串型(string)

eg:dim name as string(用name變量表示名字時,聲明成字符串變量)

如果是用數(shù)字需要做計算,如工資\合計\人數(shù)....等要用數(shù)字型,但有一個原則,優(yōu)先選用范圍小的(按照字節(jié)型(byte)\整形(integer)\長整形(long)\單精度型(single)\雙精度型(double)的順序選擇),夠用就可以了,這樣可以占用內(nèi)存少,運算速度快.

eg:dim count as integer(用integer表示員工人數(shù)時,可聲明成整形變量)

eg:dim sum as single(用sum表示工資時,可聲明成單精度型變量)

不知是否說得清楚了.

（高分求助）想要個密碼字典生成的VB或VB.NET代碼，生成任意字符串的所有排列組合，包括子字符串的排列組

你學(xué)過數(shù)學(xué)的話，就知道，這個字典會異常級別的大，如果是6位，就能達(dá)到20G~30G

分享名稱：排列組合vbnet 排列組合cn和an的區(qū)別
網(wǎng)頁路徑：http://chinadenli.net/article22/dojdscc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營銷型網(wǎng)站建設(shè)、關(guān)鍵詞優(yōu)化、外貿(mào)建站、企業(yè)建站、定制網(wǎng)站、自適應(yīng)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)