VB确定要继续循环一

VB确定要继续循环一

Const nn = 100
Dim a%(nn), s%
Sub comb(ByVal n%, ByVal k%)
    Dim i%, j%
    For i = n To k Step -1
        a(k) = i
        If k > 1 Then
            comb i - 1, k - 1
        Else
            s = s + 1
            For j = a(0) To 1 Step -1
                Debug.Print Chr(a(j) + 96);
            Next
            Debug.Print " ";
            If s Mod 10 = 0 Then Debug.Print
        End If
    Next
End Sub
Sub main()
    Dim ms%, ns%
    s = 0
    ns = InputBox("ns")
    ms = InputBox("ms")
    a(0) = ms
    comb ns, ms
    Debug.Print vbCrLf; "C("; ns; ","; ms; ")="; s
End Sub

Const maxn = 100
Dim a(maxn) As Integer
Dim s As Integer
Function comb(n As Integer, k As Integer)
Dim i As Integer, j As Integer
For i = n To k Step -1
a(k) = i
If k > 1 Then
comb i - 1, k - 1
Else
s = s + 1
For j = a(0) To 1 Step -1
Print Chr(a(j) + 96);
Next
Print " ";
If s Mod 10 = 0 Then Print
End If
Next
comb = s
End Function
Private Sub Command1_Click()
Dim ms As Integer, ns As Integer
ns = InputBox("input n:")
ms = InputBox("inpur m:")
a(0) = ms
comb ns, ms
Print
Print "C("; ns; ","; ms; ")="; s
End Sub