在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序: Private Sub Command1_Click( ) Dim I As Integer If Text1.Text <> "Gong" Then I = MsgBox("密码错误", 5 + vbExclamation, "输入密码") If I <>4 Then End Else Text1.Text = "" Text1.SetFocus End If Else MsgBox "密码帐号正确!" End If End Sub 若在text1中输入字符串"gong",则程序运行结果为