VB编程问题.问题是有1到9共计9个号码球,问能组成多少个3球组合.一个号码只能用一次.有1到9共计9个号码球,问能组成多少个不同的3位数.一个号码只能用一次.即百位数有9种可能,十位数有8种,

Question

VB编程问题.问题是有1到9共计9个号码球,问能组成多少个3球组合.一个号码只能用一次.
有1到9共计9个号码球,问能组成多少个不同的3位数.一个号码只能用一次.即百位数有9种可能,十位数有8种,个位数有7种.而不是组合问题,即213和321是俩个数

Answer 1

Private Sub Form_Load()
Dim str As String
str = ""
c = 0
For i = 1 To 9
For j = 1 To 9
For k = 1 To 9
If i j And i k And j k Then
str = str & (i * 100 + j * 10 + k) & " "
c = c + 1
End If
Next
Next
Next
Text1 = "共" & c & "个:" & str
End Sub