VB 程序实例：设计登录程序，用户名（rain）和密码(345)匹配则进入下一个页面，否则给出提示？

程序界面

先把登录的界面设计好（输入用户名的是text1，输入密码的是text2）把text2的passwordchar值设为“*”，这样当用户输入密码时，显示的字符就是“*”了。

接着设计用户跳转的页面（可自己设计）

欢迎界面

然后，回到form1，鼠标左键双击确定按钮，进入代码窗口，输入：

If Text1.Text = "rain" And Text2.Text = "345" Then

  Me.Hide

Form2.Show

Else

Msgbox "用户名称或密码错误",vbCritical, "提示"

Text1.Text = ""

Text2.Text = ""

End If

代码窗口

Dim AAA As String

Private Sub Command1_Click()

Dim aa, bb

aa = "admin" '账号

bb = "admin888" '密码

AAA = Val(AAA) + 1 '记录登录次数

If Val(AAA) >= 3 Then '等于大于3次，提示并退出程序

MsgBox "你已经错误输入三次！"

End

End If

If Text1 = aa And Text2 = bb Then '如果输入正确

MsgBox "登录成功!"

Me.Hide

form2.Show '登录成功后，转到form2界面

Else '如果输入错误

MsgBox "账号或密码输入错误!"

End If

End Sub

Private Sub Form_Load()

Label1 = "欢迎光临！"

End Sub

---