答案： A、24 B、10 C、9 D、26
61307、 执行下面程序段后，变量y的值为（ ）。 Dim y As Integer x = 3.5
If x >= 0 Then y = x + 1 Else
y = x -1 End If 答案： A、4.5 B、2.5 C、4 D、3
61308、 执行下面程序段后，变量Result的值为（ ）。 a = 3 b = 4 c = 5
If (a + b > c) And (a + c > b) And (b + c > a) Then Result = \ Else
Result = \ End If 答案： A、False B、Yes C、No D、True
61401、 Sub 过程与 Function 过程最根本的区别是（ ）。 答案：
A、Function过程可以通过过程名返回值，Sub过程不可以
B、Sub 过程可以使用Call语句或直接使用过程名调用，而Function过程不可以 C、Function可以实现递归，二Sub过程不可以
D、Function过程可以有参数，Sub过程不可以有参数
61402、 VBA语句“Dim Arr(5) as String”的含义是（ ）。 答案：
A、定义由5个字符串构成的数组Arr B、定义由6个字符串构成的数组Arr C、定义1个值为字符串型的变量Arr(5) D、定义1个值为5的变量Arr
16
61403、 下列一维数组声明语句错误的是（ ）。 答案：
A、Dim b(100) As Double
B、Dim b(-20 To -50) As Integer C、Dim b(-15 To 0)
D、Dim b(5 To 5) As String
61404、 设已定义过程p，它有三个浮点型参数；设a、b和c为浮点型变量，能正确调用过程p的是（ ）。 答案： A、p
B、call p a, b, c C、call p(a, b, c) D、p(a, b, c)
61405、 设x和y为整型变量，经过（ ）函数调用后，x和y的值都可能改变。 答案：
A、Sub Proc(x As Integer, y As Integer) B、Sub Proc(ByVal x As Integer, y As Integer) C、Sub Proc(x As Integer, ByVal y As Integer)
D、Sub Proc(ByVal x As Integer, ByVal y As Integer) 61406、 执行下面程序段后，数组元素a(3)的值为（ ）。 Dim a(10) As Integer For i = 0 To 10 a(i) = 2 ^ i Next i 答案： A、4 B、6 C、8 D、10
61407、 设有下面函数，F(5)-F(3)的值为（ ）。 Function F(n As Integer) As Integer Dim s, i As Integer F = 0
For i = 1 To n F = F + i Next i End Function 答案： A、2 B、6 C、8 D、9
61408、 设有如下函数
Sub Fun(ByVal a As Integer, ByRef b As Single)
17
b = a + b End Sub
执行下面程序段后，变量n的值为（ ）。 Dim m As Integer Dim n As Single m = 4 n = 0.6
Call Fun(m, n) 答案： A、0.6 B、4 C、4.6 D、2.4
61501、 设rs为记录集对象变量，则“rs.Delete”的作用是（ ）。 答案：
A、删除rs对象中下一条记录 B、删除rs对象中最后一条记录 C、删除rs对象中当前记录 D、删除rs对象中第一条记录
61502、 设rs为记录集对象变量，则“rs.Close”的作用是（ ）。 答案：
A、关闭rs对象，但不从内存中释放 B、关闭rs对象，同时从内存中释放 C、关闭rs对象中当前记录
D、关闭rs对象中最后一条记录
61503、 以下关于ADO对象的叙述中，错误的是（ ）。 答案：
A、Connection对象用于连接数据源
B、Recordset对象用于存储取自数据库源的记录集
C、Command对象用于定义并执行对数据源的具体操作：如增加、删除、更新、筛选记录 D、用Recordset对象只能查询数据，不能更新数据 61504、 Recordset对象的EOF属性值为“真”，表示（ ）。 答案：
A、记录指针在Recordset对象第一条记录之前 B、记录指针在Recordset对象第一条记录
C、记录指针在Recordset对象最后一条记录之后 D、记录指针在Recordset对象最后一条记录
61505、 设rs为记录集对象，则“rs.MoveNext”的作用是（ ）。 答案：
A、记录指针从当前位置向后移动1条记录 B、记录指针从当前位置向前移动1条记录 C、移动到下一个记录集 D、移动到上一个记录集
61506、 下面（ ）是打开一个记录集的正确方法。
18
答案：
A、 Dim rs As ADODB.Recordset
rs.Open \B、 Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset
rs.Open \C、 Dim rs As ADODB.Connection
rs.Open \D、 Dim rs As ADODB.Connection Set rs = New ADODB.Connection
rs.Open \
61507、 设rs为记录集对象，下面（ ）可以处理记录集中每一条记录。 答案：
A、 Do While rs.EOF ……
rs.MoveLast
Loop B、 Do While rs.EOF ……
rs.MoveNext Loop
C、 Do While Not rs.EOF ……
rs.MoveNext Loop
D、 Do While Not rs.EOF ……
rs.MoveLast Loop
61508、 设rs为记录集对象，下面（ ）可以正确完成记录集的清理任务。 答案：
A、 rs.Close Set rs=Nothing B、 rs.Close
C、 Set rs=Nothing
rs.Close D、 Set rs=Nothing
19