填空题下图中，图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图2的界面。如果输入的门令错误，则出现图3的信息框。单击图1中的“取消”按钮，则结束程序。PrivateSubiommand1_Click()DimpassworAsStringpassword=Text1.Textifpassword="Myname"then________form1.ShowElsed=MsgBox(________)RefreshEndifEndSubPrivateSubcommand2_Click()________EndSub在图1的窗体中，文本框对象的名称属性是________。
填空题执行如下程序段后，intsum的值为 【13】 。 Private Sub Command1_Click() sum=0 For i=1 To 18 Step 2 For j=2 To 6 If(i Mod j)＜＞0 Then sum=sum+j Next Next Print sum End Sub
填空题快捷键Ctrl+O的功能相当于执行文件菜单中的______命令。
填空题当对象得到焦点时，会触发GotFocus事件，当对象失去焦点时将触发______事件。
填空题在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 Forml．
________
pmenu
填空题为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 【14】 。
填空题可以把具有相同属性的一些不同对象归类，称为 【3】 。
填空题在执行KeyPress事件过程时，KeyASCII是所按键的{{U}} {{U}} {{/U}} {{/U}}值。对于有上档字符和下档字符的键，当执行KeyDown事件过程时，KeyCode是{{U}} {{U}} {{/U}} {{/U}}字符的ASCII值。
填空题为了从用户菜单返回到默认的系统菜单应该使用命令SET【8】TO DEFAULT。
填空题下面的程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量： Dim PaIntStart As Boolean 编写如下事件过程： Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouscDown(Button As Integer，Shift As Integer，_ X As Single，Y As Single) [13] End Sub Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_ X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，_ X As Single，Y As Single) [14] End Sub Private Sub Form_DblClick() [15] End Sub
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()n=5f=1s=0Fori=1Tonf=__________s=s+fNextPrintsEndSub该事件过程的功能是计算的值。请填空。
填空题有如下程序：
Private Sub Form_Click()
n=10
i=0
Do
i=i+n
n=n-2
Loop While n>2
Print i
End Sub
程序运行后，单击窗体，输出结果为 【 】 。
填空题在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示：如果存在，则在Label2中给出提示“输入项已在组合框中”。请在____________、____________和____________处将程序补充完整。PrivateSubCombo1____________(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0TOComb01.ListCount-1IfCombo1.Text=____________ThenLabel2.Caption=“输入项已在组合框中”ExitSubEndIfNextiLabel2.Caption=“已成功添加输入项”Combo1.____________Combo1.TextEndIfEndSub
填空题已知变量boo1Var是一个布尔型的变量，如果要给其赋值为True，则正确的赋值语句就是______。
填空题下面程序代码实现单击命令按钮Command1时输出如下结果： 1 -1 -1 1 1 -1 1 1 1 该程序不完整，请填空。 Private Sub Command1_Click() DimX(3,3) For I=1 To 3 ForJ=1 To 3 If______Then X(I,J)=1 End If If I＜J Then X(I,J)=-1 End If Next J NextI ForI=1 To 3 ForJ=1 To 3 PrintX(I.J)； NextJ Print NeXtI End SUb
填空题面向对象的程序设计主要的优点包括与人类习惯思维方法一致、稳定性好、可重用性好、{{U}} 【2】 {{/U}}和可维护性好等5个方面。
填空题如果在D盘当前文件夹下已2经存在名为PIC．day的顺序文件，那么执行语句Open "D:/PIC．dat" For Append As #1 之后将【 】。
填空题对象还有操作，用于改变对象的状态，对象及其操作就是对象的 【3】 。
填空题启动Visual Basic，选择标准EXE进入集成环境后，系统为用户启动建立一个窗体，并为该窗体起的临时名称是______。
填空题属性窗口的显示方式分为两种，即按______顺序和按分类顺序，分别通过单击相应的按钮来实现。