VB算法的分析和算代码实现

Private Sub Command1_Click()'按钮一单击事件中
If Text1 = "vb" And Text2 = "1234" Then '如果文本框1控件内容为vb 并且 text2中文本为1234 则用msgbox 弹出消息对话框 内容为 欢迎登陆
MsgBox ("欢迎登录")
Else '如果上述2个条件有一个不符合 则弹出对话框 显示 你的输入不正确。。。
MsgBox ("你的输入不正确，请重新输入")
End If
End Sub
Private Sub Command2_Click()'按钮2单击退出该窗体
End
End Sub

窗体上有Command1、Command2、Text1、Text2控件

完成一个用户名和口令匹配的功能，Text1输入用户名，Text2输入口令

单击Command1时，判断Text1中的文本是不是vb，Text2中的文本是不是1234，如果两者都是，就弹出信息提示框，说“欢迎登录”，如果有一个不是，就弹出信息对话框，说“你的输入不正确，请重新输入”

单击Command2时，退出程序

'*** 用户登录按钮的事件代码 ***
Private Sub Command1_Click()
quanxian = 0
'On Error Resume Next
Dim MPassword As String
If xm.Text = "管理" And xh.Text = "7777777" Then '判断是否使用的是超级口令登录
Unload Me
main.Show
Exit Sub
End If

If Combo1.Text = "学生" Then
quanxian = 1