1樓：匿名使用者
首先將5個數字位放到一個字元陣列中，迴圈巢狀遍歷所有組合後輸出即可。
dim a(5) as string, i1 as integer, i2 as integer, i3 as integer, i4 as integer, i5 as integer
dim res as string
a(0) = "9"
a(1) = "8"
a(2) = "3"
a(3) = "4"
a(4) = "6"
for i1 = 0 to 4
for i2 = 0 to 4
if i2 <> i1 then
for i3 = 0 to 4
if i3 <> i1 and i3 <> i2 then
for i4 = 0 to 4
if i4 <> i1 and i4 <> i2 and i4 <> i3 then
for i5 = 0 to 4
if i5 <> i1 and i5 <> i2 and i5 <> i3 and i5 <> i4 then
res = a(i1) & a(i2) & a(i3) & a(i4) & a(i5)
print res & vbcrlf
end if
next
end if
next
end if
next
end if
next
next
2樓：匿名使用者
'對於全排列一搬使用遞迴結構
'我這裡用迴圈是因為5個數還不算多，再多請使用遞迴演算法private sub command1_click()dim j1, j2, j3, j4, j5dim a
a = array(9, 8, 3, 4, 6)for j1 = 0 to 4
for j2 = 0 to 4
for j3 = 0 to 4
for j4 = 0 to 4
for j5 = 0 to 4
if j5 = j4 or j5 = j3 or j5 = j2 or j5 = j1 or _
j4 = j3 or j4 = j2 or j4 = j1 or _j3 = j2 or j3 = j1 or _j2 = j1 then
else
list1.additem a(j1) & a(j2) & a(j3) & a(j4) & a(j5)
end if
next
next
next
next
next
end sub
如何學習好VB6，如何學習好VB
把vb當成一門新的語言學習 不要放過任何一個看上去很簡單的小程式設計問題 他們往往並不那麼簡單，或者可以引伸出很多知識點 學vb並不難，長期堅持上機實踐和不遺餘力的博覽群書 如果不是天才的話，想學程式設計就不要想玩遊戲 浮躁的人容易說 xx語言不行了，應該學yy 是你自己不行了吧！浮躁的人容易問 我...
vb如何讀取中內容，vb如何讀取txt中內容
用api函式獲得使用者資料夾，這個我不曉得，我只會用獲取的使用者名稱來做.下面的 我並沒有限制使用者桌面上的txt檔案必須為 新建 文字文件.txt 也就是滿足檔案裡有字串 1234 的txt檔案，就刪除。你可以自己調整一下，這樣就不需要filelistbox控制元件了，如果只是針對你自己的電腦，這...
VB如何判斷變數是不是空值VB如何判斷一個變數是不是空值
isnull是一個內部函式，判斷引數物件是否為空 指出表示式是否不包含任何內有效資料 若是，返回容true，否則返回false 比如 本示例使用 isnull 函式檢查變數值是否為 null。dim myvar,mycheck mycheck isnull myvar 返回 false。myvar ...