填空题
下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2的界面。如果输入的门令错误，则出现图3的信息框。单击图1中的“取消”按钮，则结束程序。
Private Sub iommand1_ Click ()
Dim passwor As String
password = Text1. Text
if password = "Myname" then
1
form1. Show
Else
d = MsgBox( 2)
Refresh
End if
End Sub
Private Sub command2_ Click()
3
End Sub
在图1的窗体中，文本框对象的名称属性是 4。
Private Sub iommand1_ Click ()
Dim passwor As String
password = Text1. Text
if password = "Myname" then
1
form1. Show
Else
d = MsgBox( 2)
Refresh
End if
End Sub
Private Sub command2_ Click()
3
End Sub
在图1的窗体中，文本框对象的名称属性是 4。
【正确答案】
【答案解析】Unload Me “口令非法!”，vbOKOnly，“学生管理信息系统”
End Text [解析] 这是个多窗口操作程序，要注意窗口之间的打开和关闭。MsgBox函数的格式是：“MsgBox(提示信息[，按钮常数][，信息框标题][，帮助文件])”，End是结束运行、关闭所有窗口，UnLoad Me是关闭当前窗口。
End Text [解析] 这是个多窗口操作程序，要注意窗口之间的打开和关闭。MsgBox函数的格式是：“MsgBox(提示信息[，按钮常数][，信息框标题][，帮助文件])”，End是结束运行、关闭所有窗口，UnLoad Me是关闭当前窗口。