1． 要使窗体Form1显示出来，应使用（ 【55】 ）
（A）Load Form1 （B）Form1 Load （C）Show.Form1 （D）Form1.Show
2． 在使用通用对话框之前要先将（ 【56】 ）添加到工具箱中。
（A）Active X（B）ComboBox（C）CommonDialog（D）Color
3． 用Open语句打开文件时，若省略For子句，则隐含打开文件的存取方式为（ 【57】 ）
（A）Binary （B）Random （C）Input （D）OutPut
4． 设有以下循环结构
Do
循环体
Loop While <条件>
则以下叙述中错误的是
（A）“条件”可以是关系表达式、逻辑表达式或常数
（B）循环体中可以使用Exit Do语句
（C）若“条件”是一个为0的常数，则一次也不执行循环体
（D）如果“条件”总是为True，则不停地执行循环体
5． 要获得打开文件的长度（字节数）应用使用（ 【58】 ）函数。
（A）FileLen （B）Len（C）Loc（D）Lof
6． 给文件改名的VB语句正确的是（ 【59】 ）
（A）Name 原文件名 To 新文件名 （B）Rename 原文件名 To 新文件名
（C）Name 原文件名 As 新文件名 （D）Rename 原文件名 As 新文件名
7． 在窗体上画一个名称为Command1的命令按钮，然后编写如下的事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
Call Swap 【5】
For i = 1 To 10
Print a(i);
Next
End Sub
Sub Swap(b() As Integer)
n=【5】
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
【5】
Next
End Sub
上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
8． 在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 【5】
End Sub
Private Sub Form_Click()
Timer1.Enabled = 【6】
End Sub
Private Sub Timer1_Timer()
Label1.Caption = 【7】
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。
9． 下面程序用选择法将数组a中的10个整数按升序排列。算法是：从数组中找出最小的值，将该数与第1个数交换，这样第1个数组元素是最小的数。再从第2个数开始，找出其后各数组元素中最小的数，将该数与第2个数交换位置，这样第2个数是次小的数。如此重复上述过程，即可将数组排序。请完善以下的程序：
Option Base 1
Private Sub Command1_Click( )
Dim a (1 To 10 ) As Integer , i As Integer , j As Integer , k As Integer
For i=1 To 10
a ( i ) = Val ( InputBox ( “请输入第a( ” & i & “ ) 个数：”))
Next i
For i = 1 To 9
【60】
For j = i 1 To 10
If a ( k ) 【61】 a ( j ) Then k = j
Next j
Temp = a (i ) : 【62】 : a ( k ) = Temp
Next i
For i = 1 To 10
Print a ( i ) ,
Next i
End Sub
【60】（A）k = 0 （B）k = 1 （C）k = i （D）k = j
【61】（A）= （B）< > （C）< （D）>
【62】（A）a (i) = a (j)（B）a (j) = a (i)（C）a (k) = a (i)（D）a (i) = a (k)
10． 设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
【12】 = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then 【13】
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
