VB编程登陆界面，数据在下面，要完整的过程，页面格式如图，谢谢，急用
要求，只有输入账号和密码正确，并且选择角色正确，才会登录成功教师：账号：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做的一个用户登陆界面，也是以前回答网友的问题做的。
附件中下载运行一下，看看是否对你有助...
下一篇：c语言怎么加循环