VB问题帮我会的人告之（急等）

来源：百度知道 编辑：UC知道 时间：2024/07/07 02:03:41
编写一个程度校对程序
密码为字符串123456
程序运行后如果输入正确显示“OK！欢迎使用系统！”
如果密码错误显示“密码错误请重新输入”
如果连续输入三次均不正确则显示“非法用户，请离开！！”同时退出系统
开头有一部分好象是这样
set talk off
clear
l=1
k1=“123456”
接着下面的就不知道了。，望强人解答

Public password As String, n As Integer

Private Sub Command1_Click()
If txtPWD.Text = password Then
MsgBox "OK！欢迎使用系统！"
Else
n = n + 1
If n = 4 Then
MsgBox "非法用户!Get Out!"
Unload Me
Else
MsgBox "密码输入错误"
End If
End If
End Sub

Private Sub Form_Load()
password = "12345"
n = 1
End Sub