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个元素的数组，然后查找并输出该数组中元素的最大值。请填空。