要加个Command1和一个List1
Private Sub Command1_Click()
a ("")
End Sub
Function a(s As String) As String
If s <> "" Then List1.AddItem s
If Len(s) = 5 Then Exit Function
If InStr(s, "a") = 0 Then a (s & "a")
If InStr(s, "b") = 0 Then a (s & "b")
If InStr(s, "c") = 0 Then a (s & "c")
If InStr(s, "d") = 0 Then a (s & "d")
If InStr(s, "e") = 0 Then a (s & "e")
End Function