2017年计算机二级考试即将在九月份进行，VB是计算机二级考试的科玛之一，你知道计算机二级考试VB科目都考哪些知识吗?为了方便考生备考计算机二级考试VB 科目。下面是小编为大家带来的计算机二级考试VB巩固题，欢迎阅读。
巩固题一：
1. 要使窗体Form1显示出来，应使用( 【55】 )
(A)Load Form1 (B)Form1 Load (C)1 (D)
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()
led = False
rval = 【5】
End Sub
Private Sub Form_Click()
led = 【6】
End Sub
Private Sub Timer1_Timer()
ion = 【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个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
巩固题二：
1. 执行以下程序段后，变量c$的值为( 【45】 )
a$ = “ Visual Basic 6.0 Programing ”
b$ = “ Design ”
c$ = Lcase ( Mid$ ( a$ , 7 , 6)) & Right$ ( a$ , 11 ) & b$
(A)Visual basic 6.0 design (B)basic ProgramingDesign
(C)BASIC ProgramingDesign (D)Visual BASIC 6.0 design
2. 假定有一个菜单项，名为MenuDiv，为了在运行时使该菜单项失效(变灰)，应使用的语句是( 【46】 )
(A)MenuDiv . Visible = False (B)MenuDiv . Visible =True
(C)MenuDiv . Enabled = False (D)MenuDiv . Enabled = True
3. 为了暂时关闭计时器，应把该计时器的某个属性设置为False，这个属性是( 【47】 )
(A)Enabled (B)Interval (C)Timer (D)Visible
4. 为了把一个记录型变量Stu的内容写入随机文件中的指定位置，所使用的语句格式为( 【48】 )
(A)Put #文件号 , 记录号 , Stu (B)Put #文件号 , Stu , 记录号
(C)Get #文件号 , 记录号 , Stu (D)Get #文件号 , Stu , 记录号
5. Sub过程的定义( 【49】 )
(A)一定要有形参 (B)一定要有过程的名称
(C)一定要指明是公有的还是私有的 (D)一定要指定其类型
6. Function过程有别于Sub过程的最主要的特点是( 【50】 )
(A)Function过程一定要有形参，而Sub过程可以没有形参
(B)Function过程的终端语句是End Function，而Sub过程的终端语句是End Sub
(C)Function过程用于计算函数值，而Sub过程用于改变属性值
(D)Function过程要返回函数值，而Sub过程没有值的返回
7. 要定义一个过程为局部过程，应用使用( 【51】 )关键字。
(A)Public (B)Static (C)Sub (D)Private
8. 下列定义Func为函数过程的定义语句中错误的是( 【52】 )
(A)Function Func ( a As Integer ) As Integer
(B)Static Function Func ( a )
(C)Private Public Func ( a ) As Integer
(D)Private Function Func ( a As Single )
9. 标准模块存盘后，形成的磁盘文件扩展名为( 【53】 )
(A) (B) (C) (D)
10. 下列函数调用中错误的是( 【54】 )
(A)Str$ = InputBox ( “请输入数据 ” )
(B)InputBox ( “请输入数据 ” )
(C)Msg = MsgBox ( “是否继续输入数据?” )
(D)MsgBox ( “是否继续输入数据?” )
书香门第
