Option Explicit  Dim Num1     As Integer  Dim Num2     As Integer  Dim Num3     As Integer  Dim Num4     As Integer  Dim Num5     As Integer  Dim Num6     As Integer  Dim Num7     As Integer  Dim I, J, K         As Integer  Dim FileName     As String  Dim FileNum     As Integer  Dim Pass     As String  Dim Pass1     As String      Private Sub Form_Load()  Me。
  Show  If Len(App。Path) = 3 Then      FileName = "C:\" & App。EXEName & "。txt"  Else      FileName = "C:\" & App。EXEName & "。
  txt"  End If  FileNum = FreeFile()  Open FileName For Output As #FileNum  GetPass  End Sub  Private Sub GetPass()      For Num1 = 48 To 122      DoEvents      If Num1 > 57 And Num1 < 65 Then Num1 = 65      If Num1 > 90 And Num1 < 97 Then Num1 = 97                  For Num2 = 48 To 122          DoEvents          If Num2 > 57 And Num2 < 65 Then Num2 = 65          If Num2 > 90 And Num2 < 97 Then Num2 = 97                          For Num3 = 48 To 122              DoEvents              If Num3 > 57 And Num3 < 65 Then Num3 = 65              If Num3 > 90 And Num3 < 97 Then Num3 = 97                                  For Num4 = 48 To 122                  DoEvents                  If Num4 > 57 And Num4 < 65 Then Num4 = 65                  If Num4 > 90 And Num4 < 97 Then Num4 = 97                                          For Num5 = 48 To 122                      DoEvents                        If Num5 > 57 And Num5 < 65 Then Num5 = 65                        If Num5 > 90 And Num5 < 97 Then Num5 = 97                                                      For Num6 = 48 To 122                            DoEvents                              If Num6 > 57 And Num6 < 65 Then Num6 = 65                              If Num6 > 90 And Num6 < 97 Then Num6 = 97                                                              For Num7 = 48 To 122                              DoEvents                              If Num7 > 57 And Num7 < 65 Then Num7 = 65                                If Num7 > 90 And Num7 < 97 Then Num7 = 97                                Pass = Chr(Num1) & Chr(Num2) & Chr(Num3) & Chr(Num4) & Chr(Num5) & Chr(Num6) & Chr(Num7)                                J = 0                                                                  For I = 1 To 7                                    If Mid(Pass, I, 1) = 0 Then                                    J = J + 1                                    Else                                          Exit For                                    End If                                Next I                                                                  For K = 0 To J                                    Pass1 = Right(Pass, Len(Pass) - K)                                    Print #FileNum, Pass1                                Next K                                                        Next                    Next                Next            Next          Next      Next  Next  MsgBox "完成。
  "  End Sub      Private Sub Form_Unload(Cancel As Integer)      Close #FileNum  End Sub慢慢看吧,循环特别大。