Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入用户名!", vbOKOnly + vbCritical, "错误"
Exit Sub
If Text2.Text = "" Then
MsgBox "请输入密码!", vbOKOnly + vbCritical, "错误"
End If
End If
End Sub
上述程序,当text1为空时,弹出“请输入用户名”后直接退出了最外层IF语句,不弹出“请输入密码”
“exit sub”注释掉,清空text1和text2,发现弹出“请输入用户名后”继续弹出“请输入密码”。