Access数据库应用技术
A 顺序控制和分支控制 B 顺序控制和循环控制 C 循环控制和分支控制 D 顺序、分支和循环控制 参考答案D
63 从字符串 s 中的第 2 个字符开始获得 4 个字符的子字符串函数是 A Mid$(s,2,4) B Left$(s,2,4) C Rigth(s,4) D Left$(s,4) 参考答案A
64 语句 Dim NewArray(10) As Integer 的含义是 A 定义了一个整型变量且初值为 10 B 定义了 10 个整数构成的数组 C 定义了 11 个整数构成的数组 D 将数组的第 10 元素设置为整型 参考答案C
65 在 Access 中，如果要处理具有复杂条件或循环结构的操作，则应该使用的对象是 A 窗体 B 模块 C 宏 D 报表 参考答案B
66 不属于 VBA 提供的程序运行错误处理的语句结构是 A On Error Then 标号 B On Error Goto 标号 C On Error Resume Next D On Error Goto 0 参考答案A
68 若要在子过程 Proc1 调用后返回两个变量的结果，下列过程定义语句中有效的是 A Sub Proc1(n,m) B Sub Procl(ByVal n,m) C Sub Procl(n,BYVal m) D Sub Procl(ByVal n, ByVal m) 参考答案A？？？
69 下列四种形式的循环设计中，循环次数最少的是 A a=5:b=8
Do A=a+1
Loop While a
Do a=a+1 Loop Until a
Loop D a=5:b=8 Do Until a>b a=a+1 Loop 参考答案C
70 在窗体中有一个命令按钮 run35，对应的事件代码如下： Private Sub run35_Enter( ) Dim num As Integer Dim a As Integer Dim b As Integer Dim i As Integer
29
Access数据库应用技术
For i=1 To 10
num=InputBox(\请输入数据：\输入\ If Int(num/2)=num/2 Then a=a+1 Else
B=b+1 End If Next I
MsgBox(\运行结果：a=\End Sub
运行以上事件所完成的功能是 A 对输入的 10 个数据求累加和
B 对输入的 10 个数据求各自的余数，然后再进行累加
C 对输入的 10 个数据分别统计有几个是整数，有几个是非整数 D 对输入的 10 个数据分别统计有几个是奇数，有几个是偶数 参考答案D
95 在下图所示的窗体上，有一个标有“显示”字样的命令按钮（名称为Command1）和一个文本框（名称为text1）。当单击命令按钮时，将变量sum的值显示在文本框内，正确的代码是
A Me!Text1.Caption=sum B Me!Text1.Valuc=sum C Me!Text1.Text=sum D Me!Text1.Visiblc=sum 参考答案B？C？
98 在VBA中，实现窗体打开操作的命令是 A DoCmd.OpenForm B OpenForm C Do.OpenForm D DoOpcn.Form 参考答案A
99 在Access中，如果变量定义在模块的过程内部，当过程代码执行时才可见，则这种变量的作用域为 A 程序范围 B 全局范围 C 模块范围 D 局部范围 参考答案D
101 在VBA中，错误的循环结构是 A Do While条件式
循环体 Loop
B Do Until条件式
循环体 Loop C Do Until
循环体 Loop条件式 D Do
30
Access数据库应用技术
循环体 Loop While条件式 参考答案C
103 在窗体中有一个命令按钮（名称为run34），对应的事件代码如下： Private Sub run34_Click( ) sum=0
For i=10 To 1 Step -2 sum=sum+i Next i MsgBox sum End Sub
运行以上事件，程序的输出结果是 A 10 B 30 C 55 D 其他结果 参考答案B
130 发生在控件接收焦点之前的事件是 A Enter B Exit C GotFocus D LostFocus 参考答案A
131 要想在过程Proc调用后返回形参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) 参考答案A
135 在VBA 中，下列关于过程的描述中正确的是 A 过程的定义可以嵌套，但过程的调用不能嵌套 B 过程的定义不可以嵌套，但过程的调用可以嵌套 C 过程的定义和过程的调用均可以嵌套 D 过程的定义和过程的调用均不能嵌套 参考答案B
137 下列四个选项中，不是VBA 的条件函数的是 A Choose B If C Iif D Switch 参考答案A
138 设有如下过程：设有如下过程；X=1DOX=X+2Loop Until________。运行程序，要求循环体执行3 次后结束循环，空白处应填入的语句是________。
A x<=7 B x<7 C x>=7 D x>7 参考答案C
155 下列关于OLE对象的叙述中，正确的是 A 用于输入文本数据 B 用于处理超级链接数据 C 用于生成自动编号数据
D 用于链接或内嵌Windows支持的对象 参考答案D
164 执行语句：MsgBox ”AAAA”, vbOKCancel+vbQuetion, “BBBB”之后，弹出的信息框 A 标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA” B 标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB” C 标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA” D 标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB” 参考答案C
169 下列程数据类型中，不属于VBA的是 A 长整型 B 布尔型 C 变体型 D 指针型
31
Access数据库应用技术
参考答案D
170 下列数组声明语句中，正确的是
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 参考答案B
171 在窗体中有一个文本框Test1，编写事件代码如下： Private Sub Form_Click()
X= val (Inputbox(“输入x的值”)) Y= 1 If X<>0 Then Y= 2 Text1.Value = Y End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是 A 1 B 2 C 3 D 4 参考答案B
172 在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下： For I = 1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x= x + 3 Next k Next j Next I
Text1.Value = Str(x) End Sub
打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是 A 6 B 12 C 18 D 21 参考答案D
173 在窗体中有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s = p(1) + p(2) + p(3) + p(4) debug.Print s End Sub
Public Function p (N As Integer) Dim Sum As Integer Sum = 0 For i = 1 To N Sum = Sum + 1 Next i P = Sum End Function
打开窗体运行后，单击命令按钮，输出的结果是 A 15 B 20 C 25 D 35 参考答案B
195 在调试VBA程序时，能自动被检查出来的错误是 A 语法错误 B 逻辑错误
C 运行错误 D 语法错误和逻辑错误
32
Private Sub Command1_Click()