VB编程登陆界面，数据在下面，要完整的过程，页面格式如图，谢谢，急用

更新时间2018-12-30 08:41:45

要求，只有输入账号和密码正确，并且选择角色正确，才会登录成功教师：账号：yjy，密码：123学生账号：xs，密码：123管理员账号：admin，密码：123

Private Sub Form_Load()

Option1.Caption = "教师" '在窗体上放置3个OptionButton 它们自动分为一组

Option2.Caption = "学生"

Option3.Caption = "管理员"

Command1.Caption = "登录"

Command2.Caption = "取消"

Text1.Text = "" '清空Text1.Text

Text1.ToolTipText = "请输入姓名" '鼠标停靠Text1时显示提示信息

Text2.Text = ""

Text2.ToolTipText = "请输入密码"

End Sub

Private Sub Command1_Click()

Dim S As String, TS As String

If Option1.Value = True Then S = "教师"

If Option2.Value = True Then S = "学生"

If Option3.Value = True Then S = "管理员"

TS = "登录失败 !"

Select Case S

Case "教师"

If （Trim(Text1.Text) = "yjy"） And （Trim(Text2.Text) = "123" ）Then TS = "登陆成功 !"

Case "学生"

If (Trim(Text1.Text) = "XS") And (Trim(Text2.Text) = "123") Then TS = "登陆成功 !"

Case "管理员"

If （Trim(Text1.Text) = "admin" ）And （Trim(Text2.Text) = "123" ）Then TS = "登陆成功 !"

End Select

'输出登录结果

MsgBox S & ": " & TS

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

注意：这是区分大小写的，如不需要区分大小写可把输入结果都转换一下

这是我用VB6做的一个用户登陆界面，也是以前回答网友的问题做的。

附件中下载运行一下，看看是否对你有助...