哈尔滨卓展女装品牌:紧急，用VB编个算法，答案通过加分

Private Sub Command1_Click()
Dim a, b As Integer
Dim x, y As Integer
a = 1
b = 1
For i = 1 To 11 Step 1
a = a * i
If i <= 10 Then b = b * i
Next
a = a / (2 * (a / (11 * 10))) ''单数的组合数
b = b / (6 * (b / (10 * 9 * 8))) '双数的组合数,二者都由排列组合公式得来
Dim nd(), ns()
MsgBox a * b
ReDim nd(a), ns(b)
x = 0
y = 0
For i = 1 To 10 Step 1
For j = i + 1 To 11 Step 1
nd(x) = (2 * i - 1) & "," & (2 * j - 1)
x = x + 1
Next
Next
For l = 1 To 8 Step 1
For m = l + 1 To 9 Step 1
For n = m + 1 To 10 Step 1
ns(y) = 2 * l & "," & 2 * m & "," & 2 * n
y = y + 1
Next
Next
Next
For i = 0 To a - 1 Step 1
For j = 0 To b - 1 Step 1
List3.AddItem nd(i) & "," & ns(j)
Next
Next
End Sub