填空题为了使一个标签透明且没有边框，必须将它的{{U}} 【11】 {{/U}}属性设置为0，并将BackStyle属性设置为0。
填空题在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Cliek()
Dim arr()As Integer
Re Dim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
IfVal(x)＞4 Then
Rc Dim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为{{U}} 【10】 {{/U}}。
填空题计时器事件之间的间隔通过 【8】 属性设置。
填空题下面程序用“冒泡”法将数组a中的10个整数按升序排列，算法是：从数组的第1个元素开始，依次将相邻的两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a()
a=Array(678，45，324，528，439，387，87，875，273，823)
Fori＝{{U}} 【10】 {{/U}}
Forj= {{U}}【11】{{/U}}
If a(j){{U}} 【12】 {{/U}}a(j+1)Then
a1=a(j)
a(j)＝a(j+1)
a(j+1)=al
End lf
Nextj
Next i
For i＝1 To 10
Print a(i)
Next i
End Sub
填空题在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮。即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图16-5所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。PrivateSubCommand1_C1ick()IfList1.List1adex＞=【10】ThenList1.Removeltem【11】Label1.Caption=【12】ElseMsgBox"请选择要删除的项目"EndIfEndSub
填空题软件模块化原理是逐层分解的{{U}} 【3】 {{/U}}方法在软件总体构造阶段的运用。
填空题在菜单编辑器中建立一个菜单，名称为mymenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。
Form1.{{U}} 【10】 {{/U}}mymenu
填空题在长度为n的线性表中，寻找最大项至少需要比较______。
填空题假定建立了一个工程，该工程包括两个窗体，其名称分别为Form1和Fom2，启动窗体为Form1。在Form1上面画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2，请在 【8】 和 【9】 处将程序补充完整。 Private Sub Command1_Click( ) 【8】 form2 【9】 End Sub
填空题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1_Click() Dim inData As String Text1.Text="" Open "d:/myfile.txt" For (7) As #1 Do While (8) Input #1.inData Text1.Text=Text1.Text+inData Loop Close #1 End Sub 程序的功能是：打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。
填空题在Visual Basic中，除了可以指定某个窗体作为启动对象外，还可以指定______为启动对象。
填空题下面程序运行后，窗体中显示{{U}} 【14】 {{/U}}。
Private Sub Command1_Click) ( )
aS ="*" :b$ ="$"
For k = 1 To 3
x$ =Strings (Len(a$) +k,b$ )
Print x $;
Next
Print
End Sub
填空题工程中有Form1和Form2两个窗体。Form1窗体外观如图5所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Command1)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图6所示。如果单击命令按钮，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”。请填空。PrivateSubCommand1_Click()IfText1.Text=""ThenMsgbox"请输入半径!"ElseIfNotIsNumeric(______)ThenMsgBox"请输入数值数据!"Elser=Val(______)Form2.Show______.Print"圆的面积是"&3.14*r*rEndIfEndSub
填空题有如下程序： Private Sub command1_Click() a=1:b=1 Print"a=";a;",b=";b Call mult((a),b) Print"a=";a;";b=";b 语句 End Sub Sub mult(x,y) x=2*k y=3*k Print"x=";x;",y=";y End Sub 运行后，标有“语句”的Print语句的输出结果是______。
填空题在窗体上画两个组合框，其名称分别为Combo1、Comb02，然后画两个标签，名称分别为Label1、 Labe12。要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。 Private Sub Comb01_Click() Call ShowItem(Combo1，Labe11) End Sub Private Sub Combo2_Click() Call ShowItem(Combo2, Labe12) End Sub Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label) ______.Caption=______.Text End Sub
填空题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1_Click() Dim inData As String Text1.Text="" Open"d:/myfile.txt"Fo (8) As#1 Do While (9) Input #1,inData Text1.Text=Text1.Text+inData Loop Close #1 End Sub 程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。
填空题执行以下程序段，并输入1.23，则程序的输出结果应是 【15】 。 N=Str(InputBox("请输入一个实数:")) p=InStr(N,".") Print Mid(N,p)
填空题顺序存储方法是把逻辑上相邻的结点存储在物理位置
________
的存储单元中。
填空题在窗体上面有一个列表，然后编写如下两个事件过程：
Private Sub Form_Click()
List1.RemoveItem 1：List1.RemoveItem2
List1.RemoveItem 3
End Sub
Private Sub Form_Loab()
List1.AddItem "ItemA ":List1.AddItem "Item B"
List1.AddItem"Item C"：List1.AddItem "ItemD"
List1.AddItem "ItemE"
End Sub
运行上面的程序，然后单击窗体，列表框中显示的项目是
________
。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()n=1f=1s=0Fori=1Tonf=f【8】s=s+fNextPrintsEndSub该事件过程的功能是计算的值。请填空。