VB登陆代码

来源：百度知道 编辑：UC知道 时间：2024/07/02 06:54:59
两个文本框一个命令按钮”确定”，在Text1中输入口令，如果输入的是123456，单击”确定”后在text1中显示”口令正确”，如果输入其他的内容，点”确定”后弹出提示错误对话框，并且text2中的数减1．text2用来记录次数，初值为3．最多可以输入3次，如果3次错误，退出．
请高手给个程序代码．
谢谢

Private Sub Command1_Click()
If Text1 = "123456" And Text2 <> "0" Then
Text1 = "口令正确"
Else
Text1 = ""
If Text2 > 0 Then Text2 = Text2 - 1 Else End
MsgBox "口令错误", vbCritical, "Error"
End If

End Sub

Private Sub Form_Load()
Text1 = "": Text2 = "3"
End Sub

Private Sub Command1_Click()
If Text1 = "123456" And Text2 >"0" Then
Text1 = "口令正确"
Else
Text1 = ""
If Text2 > 0 Then
Text2 = Text2 - 1
Else
End
MsgBox "口令错误"
End If

End Sub

Private Sub Form_Load()
Text1 = vbnullstring: Text2 = "3"
End Sub

Private Sub Command1_Click()
If Text1.Text = "123456" Then
Text1.Text = "口令正确"
ElseIf Text1.Text <> "123456&quo