有1、2、3、4四个数字,能组成多少个互不相同且无重复数字的三位数?都是多少?VB程序答案

Dim a(3) As Integer
Dim i%,j%,k%,m%,str$
a(0) = 1 :a(1) = 2 :a(2) = 3 :a(3) = 4 :m = 0 :str = ""
For i = 0 To 3
For j = 0 To 3
For k = 0 To 3
If i j And j k And i k Then
m = m + 1
str = str & m & " " & a(i) & a(j) & a(k) & vbCrLf
End If
Next
Next
Next
MsgBox(str)

24种。
你一个一个排出来就是了。

123,124,134,132,142,143,213,214,231,234,241,243,312,314,321,324,341,
342,412,413,421,423,431,432 （24种）