2014年9月计算机二级Access预测选择题(3)
考点11：模块VBA基础
1.运行下列程序段，结果是( )。
For m = 10 To 1 Step 0
k = k + 3
Next m答案：B
A)形成死循环
B)循环体不执行即结束循环
C)出现语法错误
D)循环体执行一次后结束循环
2.假设某一数据库表中有一个地址字段，查找地址最后两个字为“8号”的记录的准则是( )。答案：A
A)Right([地址],2)="8号"
B)Right([地址],4)="8号"
C)Right("地址",2)="8号"
D)Right("地址",4)="8号"
3.以下合法的表达式是( )。答案：B
A)教师编号between 100000 and 200000
B)[性别]="男" or"女"
C)[基本工资]>=1000[基本工资]<=10000
D)[性别]like"男"=[性别]="女"
4.下列Case语句中错误的是( )。答案：C
A)Case 0 To 10
B)Case Is>10
C)Case Is>10 And Is<50
D)Case 3,5,Is>10
5.下列数组声明语句中，正确的是( )。答案：B
A)Dim A[3,4] As Integer
B)Dim A(3,4)As Integer
C)Dim A[3;4] As Integer
D)Dim A(3;4)As Integer
6.在窗体上有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 12: y = 32
Call Proc(x, y)
Debug.Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n = n Mod 10
m = m Mod 10
End Sub
打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。答案：A
A)2 32
B)12 3
C)2 2
D)12 32
7.以下过程的功能是向数组中增加字符，则程序中下画线处应为( )
Private Sub AddToArray(arr(),arraycount%,ByVal charstring)
Dim i%, found As Boolean
found=False
For i=1 To arraycount
If array(i)=charstring Then
found=True
Exit For
End If
Next i
If Not found Then
arraycount= arraycount+1
———
arr(arraycount)=charstring
End If
End Sub答案：B
A)ReDim arr(arraycount)
B)ReDim Preserve arr(arraycount)
C)Dim arr(arraycount)
D)Dim Preserve arr(arraycount)
8.以下窗体加载事件程序如下：
Private Sub Form_Load()
Do
b = b + 1
If b = 5 Then Exit Do
Loop
Msgbox b
End Sub
此程序运行结果为( )。答案：A
A)5
B)6
C)7
D)8
9.在VBA中，如果没有显式声明或用符号来定义变量的数据类型，变量的默认数据类型为( )。答案：D
A)Boolean
B)Integer
C)String
D)Variant
10.给定日期DD，计算该日期当月最大天数的正确表达式是( )。答案：D
A)Day(DD)
B)Day(DateSerial(Year(DD)，Month(DD)，day(DD)))
C)Day(DateSerial(Year(DD)，Month(DD)，0))
D)Day(DateSerial(Year(DD)，Month(DD)+1,0))
11.VBA 表达式3*3\3/3 的输出结果是( )。答案：C
A)0
B)1
C)3
D)9
12.在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click()
Dim i, j, x
For i = 1 To 20 Step 2
x = 0
For j = i To 20 Step 3
x = x + 1
Next j
Next i
Text1.Value = Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是( )。答案：A
A)1
B)7
C)17
D)400
13.假定有以下程序段：
n=0
for i=1 to 3
for j=-4 to -1
n=n+1
next j
next i
运行完毕后，n的值是( )。答案：D
A)0
B)3
C)4
D)12
14.下列变量名中，合法的是( )。答案：C
A)4A
B)A-1
C)ABC_1
D)private
15.以下返回值是“False”的语句是( )。答案：D
A)Value=(10>4)
B)Value=("ab"<>"aaa")
C)Value=("周"<"刘")
D)Value=(#2004/9/13#<=#2004/10/10#)
16.定义了二维数组A(2 to 5,5)，该数组的元素个数为( )。答案：B
A)20
B)24
C)25
D)36
17.要将“选课成绩”表中学生的成绩取整，可以使用( )。答案：B
A)Abs([成绩])
B)Int([成绩])
C)Sqr([成绩])
D)Sgn([成绩])
18.在调试VBA程序时，能自动被检查出来的错误是( )。答案：A
A)语法错误
B)逻辑错误
C)运行错误
D)语法错误和逻辑错误
19.有关VBA程序运行错误处理说法错误的是( )。答案：D
A)无论怎样为程序代码作彻底地测试与排错，程序错误仍可能出现
B)VBA中提供On Error GoTo语句来控制当有错误发生时程序的处理
C)“On Error GoTo 标号”语句在遇到错误发生时，程序转移到标号所指位置代码执行
D)“On Error GoTo 0”语句表示发生错误时，跳转至首行位置并向下执行
20.VBA中定义符号常量可以用关键字( )。答案：A
A)Const
B)Dim
C)Public
D)Static
21.在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为( )。答案：A
A)20
B)24
C)25
D)36