VB實(shí)現(xiàn)的一個(gè)號(hào)碼組合軟件

輸入數(shù)據(jù): A組:2,8,9 B組:4,7,9,10 C組:8,11,12 條件: 1,一組只能選一個(gè)號(hào) 2,選出的號(hào)不能相同 3,A組 　　用VB編寫(xiě)的代碼如下
    view plaincopy to clipboardprint?
    Option Base 1
    Private Sub Command1_Click()
    Dim a()
    Dim b()
    Dim c()
    a = Array(2, 8, 9)
    b = Array(4, 7, 9, 10)
    c = Array(8, 11, 12)
    For i = 1 To UBound(a)
    For j = 1 To UBound(b)
    If a(i) < b(j) Then
    For k = 1 To UBound(c)
    If b(j) < c(k) Then
    Print a(i), b(j), c(k)
    End If
    Next k
    End If
    Next j
    Next i
    End Sub