※ 引述《eagerbee (資訊不對稱)》之銘言：
: 小弟有一個問題
: 就是用排列的方式列舉出所有的排列
: 如1234
: 1243
: 1324
: ......
: 我最近想破頭都想不出要怎麼寫...
: 我是用qb寫的....(我只會古老的程式orz...)
: 不知有那位板友可以告知邏輯概念或回到我信箱....
: 拜託了...
: 感謝看完~
完全相異排列--mPn
如果有123三數直線排列，就用三個迴圈
For i = 1 To 3
For j = 1 To 3
If j = i Or j = i Then GoTo continue1
For k = 1 To 3
If k = i Or k = j Then GoTo continue2
Print i; j; k
continue2:
Next k
continue1:
Next j
Next i
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.166.215.241