应为语句结束怎么解决?求修改下列语句!
应为语句结束怎么解决?求修改下列语句!
Module Module1
Sub Main()
Dim bUse() As Boolean
Dim lStr() As String * 1
Dim nCount As Byte
End Sub
Public Sub Combination(ByVal lstStr As String)
Dim i As Byte
Dim j As Byte
Dim StrLen As Byte
StrLen = Len(lstStr)
ReDim bUse(1 To StrLen) As Boolean
ReDim lStr(1 To StrLen) As String * 1
For i = 1 To StrLen
lStr(i) = Mid(lstStr,i,1)
Next
For i = 1 To StrLen
nCount = i
GoWith(StrLen,1,0,"")
Next
End Sub
Dim bUse() As Boolean
Dim lStr() As String * 1
Dim nCount As Byte
Public Sub GoWith(ByVal ECount As Byte,ByVal nStart As Byte,ByVal Deep As Byte,ByVal lastStr As String)
Dim i As Byte
If Deep = nCount Then
Debug.Print(lastStr)
Exit Sub
End If
For i = nStart To ECount
If Not bUse(i) Then
bUse(i) = True
GoWith(ECount,i,Deep + 1,lastStr & lStr(i))
bUse(i) = False
End If
Next
End Sub
Private Sub Form_Load()
Combination("wxyz")
End Sub
End Module