Question

vb窗体上有两个文本框：text1和text2，要求在文本框中输入用户名和登入密码。 单击“确定”做出判断。

如果用户名和登入密码均为“12345”时，显示窗体（form2.show）
否则，显示消息框（msgbox）,显示“用户名不对，请重新输入！”
然后领用inputbox函数，要求用户输入用户名。
然后在form1上显示用户的输入：“黄莺登入，xxx”，其中xxx为用户在对话框中的输入内容。

Answer 1

private sub command1_click()
if text1.text="12345" and text2.text="12345" then
form2.show
else
msgbox “用户名不对，请重新输入！"
a=inputbox("请输入用户名")
print “黄莺登入，” & a
end if
end sub

Answer 2

Private Sub command1_click()
If Text1.Text = "12345" And Text2.Text = "12345" Then
form2.Show
Form1.Hide
Else
MsgBox ("用户名不对，请重新输入！")
a = InputBox("请输入用户名")
Print "黄莺登入，" & a
End If
End Sub

Answer 3

If Text1 = "12345" And Text2 = "12345" Then
form2.Show
Else
MsgBox "用户名不对，请重新输入"
Form1.AutoRedraw = True
Print "黄莺登入，" & InputBox("输入用户名")
End If