Private Sub Form_Click()
aa 6, "{a,b,c,d,e,f}" '总的执行函数(传入值)
End Sub
Sub aa(n As Integer, string1 As String)
ReDim combo(n - 1)
For i = 2 To Len(string1) '分解出各个元素
tempstr = Mid(string1, i, 1)
If tempstr = "}" Then Exit For
If tempstr <> "," Then
combo(j) = combo(j) & tempstr
Else
j = j + 1
End If
Next
maxnum = n - 1
Do While maxnum >= 0
bb n - 1 '调用递归函数
maxnum = maxnum - 1
Loop
Print "ok"
End Sub
Function bb(n As Integer) As String '递归函数
If n < maxnum Then Exit Function
bb = bb(n - 1) & "," & combo(n)
Print "{" & Mid(bb, 2, Len(bb) - 1) & "}"
End Function
Private Sub Form_Click()
aa 6, "{a,b,c,d,e,f}" '总的执行函数(传入值)
End Sub
Sub aa(n As Integer, string1 As String)
ReDim combo(n - 1)
For i = 2 To Len(string1) '分解出各个元素
tempstr = Mid(string1, i, 1)
If tempstr = "}" Then Exit For
If tempstr <> "," Then
combo(j) = combo(j) & tempstr
Else
j = j + 1
End If
Next
For i = 1 To n - 1
Print combo(i) '打印单个元素
Next
bb n - 1 '调用递归函数
Print "ok"
End Sub
Function bb(n As Integer) As String '递归函数
If n < 0 Then Exit Function
bb = bb(n - 1) & combo(n)
Print bb
End Function