vb中三组数排列组合问题

来源：百度知道 编辑：UC知道 时间：2024/05/03 15:58:46
AAA、BB、CC三组数排列组合的算法
就是AAABBCC这些字母全排列，列出所有可能的排列的算法

数组全排列，哈哈，好玩
代码如下：
Private Sub Command1_Click()
Dim Str
Str = Array("AA", "BB", "CC")
Dim I As Integer
Dim J As Integer
Dim X As Integer
For I = 0 To 2
For J = 0 To 2
If J = I Then GoTo Begin2
For X = 0 To 2
If X = I Or X = J Then GoTo Begin1
Print Str(I); Str(J); Str(X)
Begin1: Next X
Begin2: Next J
Next I
End Sub
结果如下：
AABBCC
AACCBB
BBAACC
BBCCAA
CCAABB
CCBBAA

详细点。