填空题在最坏情况下，堆排序需要比较的次数为{{U}} 【4】 {{/U}}。
填空题在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim arr() As Integer
ReDim arr(3)
For i=0 To 3
art(i)=i
Next i
x=InputBol("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
art(4)=x
End If
Me.Print (arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为{{U}} 【10】 {{/U}}。
填空题为了选择多个控件，可以按住
________
键，然后单击每个控件。
填空题在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、 Label2。要求程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。请填空使程序完整。
Private Sub Combo1_Click()
Call ShowItem(Combo1,Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2,Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox,tmpLabel As Label)
______.Caption=______.Text
End Sub
填空题下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load ( ) DrawWidth = 2 ForeColor = vbGreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PaintStart = True 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( ) Cls End Sub
填空题如下有一段不完整的程序段，如果要求该程序执行3次循环，则在程序中的括号里要填入 【6】 。Private Sub Command1_Click() x = 1 do x=x+3 Print x Loop Until 【6】 End Sub
填空题______函数用于返回n个空格。
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72) pos=0 neg=0 For k=1 To 10 If Arr(k)＞0 Then (11) Else (12) End If Next k Print pos,neg End Sub 以上程序的功能是：计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。
填空题在一个窗体上有两个命令按钮，cmdMax 和 cmdMin。单击cmdMax时，窗体上显示“字体由小变大”，字号每次增加2；单击cmdMin时，窗体上显示“字体由大变小”，字号每次减小2。请填空。
Private Sub Form_Load()
Forml．Caption =“字体变化示范”
cmdMax．Caption=“字体变大”
cmdMin．Caption=“字体变小”
End Sub
Private Sub cmdMax_Click()
【 】
Forml．Print”字体由小变大”
End Sub
Private Sub cmdMin_Click()
【 】
Forml．Print“字体由大变小”
End Sub
填空题为了便于对照检查，测试用例应由输入数据和预期的
________
两部分组成。
填空题在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer，y As Integer)As Integer M=IIf(x＞y，x，y) End Function Private Sub Command1_Click() Dim a As Integer，b As Integer a=1 b=2 Print M(a，B) End Sub 程序运行后，单击命令按钮，输出结果为______。
填空题有如下程序：
Private Sub Form_Click()
n=10
i=0
Do
i=i+n
n=n-2
Loop while n＞2
Print i
End sub
程序运行后，单击窗体，输出结果为
________
。
填空题要选择多个不相领的控件，按住 【14】 咸SHIFT 键不放，再单击要选择的控件。
填空题如果在菜单标题的某个字母前面输入一个字符“{{U}} 【6】 {{/U}}”，就会使该字母成为热键字母；如果建立菜单时，在标题文本框中输入一个字符“{{U}} 【7】 {{/U}}”，那么菜单显示时就会形成一行分隔符。
填空题若长度为n的线性表采用顺序存储结构，在等概率假设的情况下，删除一个数据元素，需要先依次移动
________
个数据元素。
填空题Visual Basic工程中有三种模块：窗体模块、标准模块和______ 。其中类模块主要用于定义类和建立______ 组件。
填空题有一过程如下： Sub Subl (m As Integer,total As Long) Dim i AS Integer total = 1 For i = 1 To m total = total * i Next End Sub 调用它的事件过程如下： Private Sub Commandl_Click( ) Dim tot As Long, a As Integer a = Val( InputBox ("请输入数据") Call Subl (a,tot) Print tot End Sub 则输入数据5，运行结果为 【10】 。
填空题组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和下拉式组合框，分别通过把Style属性设置为______来实现。
填空题测试的目的是暴露错误，评价程序的可靠性；而
________
的目的是发现错误的位置并改正错误。
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer，n As Integer，Cout As Integer
Dim Sn As Long，Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox("请输入a的值：")
【 】
Do
Tn=Tn * 10 + a
Sn二Sn + Tn
Cout=Cout+1
【 】
Debug．Print a，n，Sn
End Sub