Dim AAA As StringPrivate Sub Command1_Click()Dim aa, bbaa = \"admin\" \'账号bb = \"admin888\" \'密码AAA。VB程序设计 用户登陆界面代码？更多详情请大家跟着小编一起来看看吧！
VB程序设计 用户登陆界面代码(1)
Dim AAA As StringPrivate Sub Command1_Click()Dim aa, bbaa = \"admin\" \'账号bb = \"admin888\" \'密码AAA = Val(AAA) + 1 \'记录登录次数If Val(AAA) >= 3 Then \'等于大于3次，提示并退出程序MsgBox \"你已经错误输入三次！\"EndEnd IfIf Text1 = aa And Text2 = bb Then \'如果输入正确MsgBox \"登录成功!\"Me.Hideform2.Show \'登录成功后，转到form2界面Else \'如果输入错误MsgBox \"账号或密码输入错误!\"End IfEnd SubPrivate Sub Form_Load()Label1 = \"欢迎光临！\"End Sub