vb6.0怎么创建登入框，但是需要账号和密码正确才能登入成功 且有注册这项 连数据库 有的发877356023@.com
这是登录需密码的一项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 "密码正确，祝你成功！", , "" ...全部
这是登录需密码的一项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。
收起
