填空题列程序的功能是将数据1，2，…，10写入顺序文件Base.txt中，请填空。
Private Sub Form_Click()
Dim i As Integer
Open
________
As#1
For i=1 To 10
Print #1, i
Next
Close#1
End Sub
填空题在窗体中添加一命令按钮，(其Name属性为Commmld1)，然后编写代码。程序的功能是产生100个小于1000(不含1000)的随机正整数，并统计其中5的倍数所占比例。
请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1 Click()
Dim a(100)
For j=1 To 100
a(j)=Int(______)
If a(j)______5=0 Then______
Print a (j)；
Next i
Print
Print k/100
End Sub
填空题数据的基本单位是{{U}} 【5】 {{/U}}。
填空题在窗体上画一个名称为Combol的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项。”，如图所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中。”。请填空。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori＝0ToCombo1.ListCount-1IfCombo1.Text=____________ThenLabel2.Caption="输入项已在组合框中。"ExitSubEndIfNextiLabel2.Caption="已成功添加新输入项。"Combo1.____________Combo1.TextEndIfEndSub
填空题在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text1. Text＝"VB Programming"
Text2. Text＝Text1. Text
Text1. Text＝"ABCD"
End Sub
程序运行后，单击命令按钮，两个文本框中显示的内容分别为{{U}} 【7】 {{/U}}和{{U}} 【8】 {{/U}}。
填空题一棵二叉树第六层(根结点为第一层)的结点数最多为______个。
填空题可以通过______快捷键或______快捷键退出Visual Basic。
填空题在菜单编辑器中，菜单项前面的4个小点的含义是 【12】 符号。
填空题有一过程如下：
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，运行结果为{{U}} 【10】 {{/U}}。
填空题使通用对话框C1显示为一个标准的颜色对话框，应使用语句______，使通用对话框C1显示为一个标准的字体对话框，应使用语句______。
填空题表达式(2+8*3)/2的值是 (7)
填空题对于输人的N个数进行快速排序算法的平均时间复杂度是 【1】 。
填空题要对文本框中已有的内容进行编辑，按下键盘上的按键，但不起作用，原因是设置了 (6) 。
填空题在面向对象方法中，允许作用于某个对象上的操作称为{{U}} 【4】 {{/U}}。
填空题使用Timer控件和Label控件来显示时间(每隔1秒显示一次)，完成此程序。 Private Sub Form_Load() ______=1000 Timer1.Enabled=True End Sub Private Sub Timer1_Timer() ____________ End Sub
填空题在数据库设计的4个阶段中，每个阶段都有自己的设计内容。“为哪些表、在哪些字段上、建立什么样的索引”，这些设计内容应该属于 (4) 设计阶段。
填空题下面运行程序后，单击命令按钮，输出的结果是
________
。
Private Sub Command1_Click()
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
For i=1 To 4
a(i)=i
Next
For i=3 To 6
b(i)=i
Next
s1.= Fun(a)
s2 =Fun(b)
Print "s1 ="; s1; "s2 ="; s2
End Sub
Function Fun( a( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
Fun=t
End Function
填空题下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2，完成下列程序。 Private Sub Backwarda() Dim i As Integer,Tmp As Integer For i=1 To 5 Tmp:a(i) (7) a(5-i)=Tmp Next End Sub
填空题下列程序实现的功能是：当在窗体上单击时，将在窗体上输出c:/a1．txt文件中的所有小写字母。 Private Sub Form_Click() Dim Ch As String*1 Open"c:/a1．txt"For Input As #10 Do While 【13】 Ch=Input(1，#10) If 【14】 Then Print Ch； End If Loop 【15】 End Sub