VB輸出由1,2,3,組成的三位數字,並統計他們有多少種組合(注:三位數字不可以重複）

題目：

VB輸出由1,2,3,組成的三位數字,並統計他們有多少種組合(注:三位數字不可以重複）

解答：

給你比較簡單的一種算法：
n=0
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
If i j And j k And k i Then
Print i & j & k
n=n+1
Next k
Next j
Next i
print "總組合數" & n
輸出結果：
123
132
213
231
312
321
總組合數6

這種算法邏輯比較簡單,可是效率不是最高,不知道你是不是要求一種效率最高的解法?
希望能對你有所幫助.