填空题在菜单编辑器中建立了一个菜单，名为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进入集成环境后，系统为用户启动建立一个窗体，并为该窗体起的临时名称是______。
填空题属性窗口的显示方式分为两种，即按______顺序和按分类顺序，分别通过单击相应的按钮来实现。
填空题已知数组A(4，4)，各个元素在运行程序时被赋值并打印，形成四阶方阵。请在空白处填入所需的内容，使产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如： 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 Private Sub Command1_Click() Dim a(4,4) For k=1 To 4 For j=1 To 4 a(k,j)=j Print a(k,j); Next Print Next For k=2 To 4 For i=1 To (12) t=a(j,k) a(j,k)= (13) a(k,j)=t Next Next For k=1 To 4 Print a(k,1); a(k,2):a(k,3):a(k,4) Next End Sub
填空题要使一个文本框具有水平和垂直滚动条，应先将其MultiLine属性设置为True，然后再将ScrollBar属性设置为______。
填空题在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt_|Batch Files (*.bat)|*.bat" CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 (13) 。 如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是 (14) 。
填空题有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click( )
x=Val(Text1．Text)
If{{U}} 【6】 {{/U}}Then
Print x
Else
Text1．Text=""
{{U}} 【7】 {{/U}}
End If
End Sub