在 VBA 中，有 Sub 过程和 Function 过程，其中 Function 过程将返回_______函数值。
A．一个 B．二个 C．三个 D．多个 答案:A
第31 题: (单选题, 1.5 分)
在 VBA 中，指定过程参数的传递方式为传值的是_______。
A．ByRef B．ByVal C．ByStr D．ByVhr 答案: B
第32 题: (单选题, 1.5 分)
在 VBA 中，一个表达式中同时含有算术运算符、关系运算符和逻缉运算符，且不含有圆括号()，其运算次序是_______。
A．先运算关系运算符，其次是算术运算符，最后是逻缉运算符 B．先运算算术运算符，其次是关系运算符，最后是逻缉运算符 C．先运算逻缉运算符，其次是关系运算符，最后是算术运算符 D．先运算逻缉运算符，其次是算术运算符，最后是关系运算符 答案: B
第33 题: (单选题, 1.5 分)
VBA 中的逻辑值进行算术运算时，True 值被当做_______，False 当做 0。 A．1 B．-1 C．10 D．-10 答案：B 答案: B
第34 题: (单选题, 1.5 分)
在 VBA 中，类型说明符______表示的类型是整型。
A．$ B．% C．# D．\答案: B
第35 题: (单选题, 1.5 分)
变量名的长度不可以超过______个字符。
A．32 B．48 C．128 D．255 答案: D
第36 题: (单选题, 1.5 分)
日期型数据应该在数据的______括起来。 A．前后各用一个双引号 B．前后各用一人单引号 C．前后各用一个圆括号 D．前后各用一个“#”号 答案: D
第37 题: (单选题, 1.5 分)
下面______是合法的字符常量。
A．ABC$ B．\ C．ABC 答案: B
第38 题: (单选题, 1.5 分)
下列语句中，定义窗体单击事件的头语句是______。 A．Private Sub Form_Dbclick() B．Private Sub Text_Dbclick() C．Private Sub Form_Click() D．Private Sub Text_Click() 答案: C
第39 题: (单选题, 1.5 分)
下面正确的赋值语句是______。
A．X+Y=30 B．Y^2=R*R C．Y=X+30 D．3Y=X 答案: C
第40 题: (单选题, 1.5 分)
执行下列程序段后，变量 t 的值是_____。
s = \全国计算机等级考试二级VFP语言程序设计\ n = InStr(s, \
z = Left(s, n - 3) & \ t = Len(z)
A. 15 B. 18 C. 19 D. 20 答案: B
．ABC' D第41 题: (单选题, 1.5 分)
程序的三种基本结构是______。
A．Do…Loop 结构、Do…Loop While 结构和 For…Next 结构 B．子程序结构、自定义函数结构 C．顺序结构、选择结构和循环结构 D．单行结构、多行结构和多分支结构 答案: C
第42 题: (单选题, 1.5 分)
表达式 IIf(2^5 Mod 7 > 7, 20, 30) 的结果是______。 A．10 B．20 C．30 D．25 答案: C
第43 题: (单选题, 1.5 分)
在 VBA 中用实际参数 a 和 b，调用过程 area(m, n)，正确形式是______。 A．area m, n
B．call area(a, b) C．call area(m, n) D．call area a, b 答案: B
第44 题: (单选题, 1.5 分)
变量声明语句 Dim a 表示变量是______。
A．双精度型 B．整型 C．长整型 D．变体型 答案: D
第45 题: (单选题, 1.5 分)
能够触发命令按钮的 MouseDown 事件的操作是______。 A．在命令按钮上按下鼠标 B．拖动窗体
C．鼠标滑过命令按钮 D．按下键盘上的某个键 答案:A
第46 题: (单选题, 1.5 分)
如果 X 是一个正的实数，保留两位小数、将千分位四舍五入的表达式是______。 A．0.01*Int(X+0.05)
B．0.01*Int(100*(X+0.005)) C．0.01*Int(X+0.005)
D．0.01*Int(100*(X+0.05)) 答案: B
第47 题: (单选题, 1.5 分)
由“For i=1 to 9 Step -3”决定的循环结构，其循环体将被执行______。 A．0 次 B．1 次 C．4 次 D．5 次 答案:A
第48 题: (单选题, 1.5 分)
窗体中有命令按钮 Command1，事件过程如下：
Public Function f(x As Integer) As Integer ' 请注意: 形参 x 默认是传址方式
Dim y As Integer x = 20 y = 2 f = x * y End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer a = 10 b = 5 b = f(a)
Debug.Print a; b End Sub
运行程序，单击该命令按钮，则立即窗口中显示的内容是______。 A．10 5 B．10 40 C．20 5 D．20 40 答案: D
第49 题: (单选题, 1.5 分)
窗体中有命令按钮 Run34，对应的事件过程代码如下： Private Sub Run34_Enter( )
Dim num As Integer, a As Integer, b As Integer, i As Integer 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个数据分别统计整数和非整数的个数 答案: C
第50 题: (单选题, 1.5 分)
运行下列程序，输入数据 8、9、3、0 后，窗体中显示结果是______。 Private Sub Form_Click( )
Dim sum As Integer, m As Integer sum = 0 Do
m = InputBox(\请输入数据\ sum = sum + m Loop Until m = 0 MsgBox sum End Sub
A．0 B．17 C．20 D．21 答案: C
第51 题: (单选题, 1.5 分)
窗体中有命令按钮 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
Access2010《数据库基础应用》
