Question

谁帮我用VB编密码和验证程序，谢谢，账号为123456，密码为gone。谢谢了

Answer 1

private commmand1_click
if text1.text="123456" and text2.text="gone" then
'验证账号、密码，如果符合则进入下一个窗体
unload form1
form2.show
else
text2.text=""
text1.text=""
text1.setfocus
'账号、密码不对则继续输入
end if
end sub

Answer 2

Dim a As Integer
Private Sub Form_Load()
a = 0
End Sub
Private Sub Command1_Click()
If Text1.Text = "123456" And Text2.Text = "gone" Then
Print "你想要进行的内容"-----改成自己想要进行的内容，当帐号密码对时
Else
MsgBox "帐号密码有误请重新输入！", vbOKOnly + vbInformation, "注意"
a = a + 1
If a = 3 Then
End
End If
End If
End Sub