Question

帮忙做个一个很简单的VB用户名密码登陆程序。内有详细...

这个号没钱了。希望有好心人帮帮忙，之后必有答谢

Answer 1

Private Sub Command1_Click()
If Text1.Text = "abc" And Text2.Text = "123" Then '自己改姓名毁笑和学配乱号
MsgBox "欢纤卖含迎你"
Else
MsgBox "非法用户"
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Form_Load()
Label1.Caption = "&User"
Label2.Caption = "&Password"
Command1.Caption = "确定[&E]"
Command2.Caption = "取消[&S]"
Text1.Text = ""
Text2.Text = ""
End Sub

Answer 2

Option Explicit
Private Sub Command1_Click()
If Text1 = "zhangsan" And Text2 = "颂纯12" Then
MsgBox "斗坦欢迎你", vbInformation
Else
MsgBox "非法用户", vbInformation
End If
End Sub
Private Sub Command2_Click()
Text1 = "野销咐"
Text2 = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
Label1.Caption = "&User"
Label2.Caption = "Password"
Command1.Caption = "确定(&E)"
Command2.Caption = "取消(&S)"
Text1 = ""
Text2 = ""
End Sub

Answer 3

Private Sub Command1_Click()
If Text1.Text = "001" And Text2.Text = "100" Then '自己改姓名和学号
form2.show
unload me
Else
MsgBox "用户或没迟笑密码错误，请从新输入枯含"
text1.text=""旦指
text2.text=""
End If
end sub
Private Sub Form_Load()
Label1.Caption = "&User"
Label2.Caption = "&Password"
Command1.Caption = "确定[&E]"
Command2.Caption = "取消[&S]"
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command2_Click()
end
End Sub