功夫2016不好看:关于vb的问题!必有重谢!

来源:百度文库 编辑:中科新闻网 时间:2024/05/11 15:53:47
题目要求用vb设计一登录窗口,如果输入口令正确则弹出一个msgbox,如果口令错误则弹出另一msgbox。
程序编好运行时发现,如果输入的口令正确弹出的仍然是口令错误时弹出的msgbox,而当第二次输入正确口令时就弹出了正确的msgbox.而且多次运行都是这样
请教懂得vb的朋友,这是怎么回事呢?
以下是我编写的代码;
Option Explicit
Dim N As Integer
Private Sub CmdExit_Click()
End
End Sub
Private Sub CmdOk_Click()
If TxtPassword.Text = "123" Then
MsgBox "祝贺你,成功登录"
End
Else
N = N + 1
If N = 3 Then
MsgBox "对不起,你无权登录该系统!"
End
End If
MsgBox "对不起,口令错误,无法登录!"
TxtPassword.Text = ""
TxtPassword.SetFocus
End If
End Sub

请给出各各控制及代码代码好吗?
MsgBox "祝贺你,成功登录"
End
上面为什么有个END
还有 If N = 3 Then
MsgBox "对不起,你无权登录该系统!"
End
这里的end 用掉

调试过了,没问题