Question

求vb代码 界面上1个文本框、1个标签和3个命令按钮。密码输入。（运行时…接详细描述）

“退出”按钮不可见，在文本框中输入密码，共三次机会，单击“清除”按钮，则会清除文本框中内容。输入密码，一致，则显示欢迎界面（简单的msgbox只有一个退出的按钮。若不一致，弹出消息框提示输入错误 标签上显示剩下次数 三次都错显示退出界面

Answer 1

以下假定为 显示剩余次数的标签控件名称为lblPrompt 登录、清除、退出按钮的名称分别为cmdLogin cmdClear cmdExit 欢迎界面的窗体名称衫腔清为WelcomeForm 初始密码为"admin"

Private leftTime As Integer '剩余次数
Private password As String '密码或前

Private Sub cmdClear_Click()
txtPassword.Text = ""
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdLogin_Click()
If Trim(txtPassword.Text) <> password Then '密码错误
leftTime = leftTime - 1
lblPrompt.Caption = "剩余次数:" + Str(leftTime)
MsgBox "密码错误,请重新输入", vbOKOnly + vbCritical, "登录失败"

If leftTime = 0 Then '剩余次数为0
cmdExit.Visible = True
cmdLogin.Enabled = False
End If
Else '密码正确
WelcomeForm.Show '圆颤显示欢迎界面
Unload Me
End If
End Sub

Private Sub Form_Load()
leftTime = 3 '剩余次数为3
password = "admin" '初始密码
End Sub

Answer 2

dim c as integer '全局变量,记录错误次数 private sub command1_click() '清除按钮text1=""end sub private sub command1_click() '确定按钮if text1="123" then msgbox "密码正确"elsec=c+1msgbox "密码错误,剩余" & 3-c & "乱亮次" ,vbcriticalend ifif c=3 then msgbox "错误次数已达到最大,将退出"搜碰,vbcriticalend end ifend sub private sub command3_click() '退世陪谈出按钮end end sub