b＝sgn(3>2) c＝a＋b MsgBox c
A) 1 B) 3 C) 7 D) 9
表达式 123 ＋ Mid$(\的结果是( D )。 A) \ B) 12334 C) 123 D) 157
在模块的声明部分使用\Option Base 1\语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为( A )。 A) 20 B) 24 C) 25 D) 36
VBA语句\Dim NewArray(10)as Integer\的含义是( B )。
A) 定义10个整型数构成的数组NewArray B) 定义11个整型数构成的数组NewArray C) 定义1个值为整型数的变量NewArray D) 定义1个值为10的变量NewArray 如有数组声明语句Dim a(2，－3 to 2,4)，则数组a包含元素的个数是( D )。
A) 40 B) 75 C) 12 D) 90
语句Dim NewArray(10)As Integer的含义是( C )。
A) 定义了一个整型变量且初值为10 B) 定义了10个整数构成的数组 C) 定义了11个整数构成的数组 D) 将数组的第10元素设置为整型
VBA中定义符号常量使用的关键字是( A )。 A) Const B) Dim C) Public D) Static
如果A为\Boolean\型数据，则下列赋值语句正确的是( D )。 A) A＝\ B) A＝.true C) A＝#TURE# D) A＝3<4 a和b中有且只有一个为0，其正确的表达式是( D )。
A) a＝0 or b＝0 B) a＝0 Xor b＝0 C) a＝0 And b＝0 D) a*b＝0 And a＋b<>0 当条件为5 C) if 5 Sub sfun(x As Single， y As Single ) t ＝ x x ＝ t / y y ＝ t Mod y End Sub 在窗体中添加一个命令按钮Command33，对应的事件过程如下： Private Sub Command33_Click() Dim a As Single Dim b As Single a ＝ 5 ： b ＝ 4 sfun a， b MsgBox a & chr(10)＋ chr(13)& b End Sub 打开窗体运行后，单击命令按钮，消息框中有两行输出，内容分别为( B )。 A) 1和1 B) 1.25和1 C) 1.25和4 D) 5和4 表达式4＋5 \\6 * 7 / 8 Mod 9 的值是( B )。 对不同类型的运算符，优先级的规定是( B )。 A) 字符运算符>算术运算符>关系运算符>逻辑运算符 B) 算术运算符>字符运算符>关系运算符>逻辑运算符 C) 算术运算符>字符运算符>逻辑运算符>关系运算符 D) 字符运算符>关系运算符>逻辑运算符>算术运算符 表达式X＋1>X是( C )。 A) 4 B) 5 C) 6 D) 7 A) 算术表达式 B) 非法表达式 C) 关系表达式 D) 字符串表达式 下列逻辑运算结果为\true\的是( B )。 A) false or not true B) true or not true C) false and not true D) true and not true 下列程序段运行结束后，变量c的值是( C )。 a＝24 b＝328 select case b\\10 case 0 c＝a*10＋b case 1 to 9 c＝a*100＋b case 10 to 99 c＝a*1000＋b end select A) 537 B) 2427 C) 24328 D) 240328 下列程序段运行结束后，消息框中的输出结果是( D )。 Dim c As Boolean a＝Sqr(3) b＝Sqr(2) c＝a>b MsgBox c A) －1 B) 0 C) False D) True 表达式\B ＝ INT(A＋0.5)\的功能是( B )。 A) 将变量A保留小数点后1位B)将变量A四舍五入取整 C将变量A保留小数点后5位 D)舍去变量A的小数部分 在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim d1 As Date Dim d2 As Date d1 ＝ #12/25/2009# d2 ＝ #1/5/2010# MsgBox DateDiff(\， d1， d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是( B )。 A) 1B) 2 C) 10 D) 11 能够实现从指定记录集里检索特定字段值的函数是( D )。 A) Nz B) Find C) Lookup D) DLookup 下列表达式计算结果为日期类型的是( C )。 A)#2012－1－23# － #2011－2－3# B)year(#2011－2－3#)C)DateValue(\－2－3\ D)Len(\－2－3\ 如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是( B )。 A) B) C) D) 能够实现从指定记录集里检索特定字段值的函数是( B )。 A) DCount B) DLookup C) DMax D) DSum 要将一个数字字符串转换成对应的数值，应使用的函数是( A )。 A) Val B) Single C) Asc D) Space 窗体中有命令按钮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＝\，b＝\End Sub 运行以上事件过程，所完成的功能是( C )。 A) 对输入的10个数据求累加和 B) 对输入的10个数据求各自的余数，然后再进行累加 C) 对输入的10个数据分别统计奇数和偶数的个数 D) 对输入的10个数据分别统计整数和非整数的个数 要将\选课成绩\表中学生的\成绩\取整，可以使用的函数是( B )。 A) Abs([成绩]) B) Int([成绩]) C) Sqr([成绩]) D) Sgn([成绩]) Rnd函数不可能产生的值是( B )。 A) 0 B) 1 C) 0.1234 D) 0.00005 删除字符串前导和尾随空格的函数是( C )。 A) Ltrim() B) Rtrim() C) Trim() D) Lcase() 随机产生 [10,50] 之间整数的正确表达式是( D )。 A) Round(Rnd*51) B) Int(Rnd*40＋10) C) Round(Rnd*50) D) 10＋Int(Rnd*41) 函数InStr(1，\，\执行的结果是( B )。 A) 0 B) 1 C) 5 D) 6 能够实现从指定记录集里检索特定字段值的函数是( C )。 A) DAvg B) DSum C) DLookup D) DCount 表达式Fix(－3.25)和Fix(3.75)的结果分别是( A )。 A) －3,3 B) －4,3 C) －3,4 D) －4,4 在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下： Private Sub Command1_Click() Dim i，j，x For i ＝ l 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 在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click() For i ＝ l 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输出的结果是( D )。 A) 6 B) 12 C) 18 D) 21 窗体有命令按钮Commandl和文本框Textl，对应的事件代码如下： Private Sub Command1_Click() 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 运行以上事件过程，文本框中的输出是( D )。 A) 6 B) 12 C) 18 D) 21 VBA程序流程控制的方式是( D )。 A) 顺序控制和分支控制 B) 顺序控制和循环控制 C) 循环控制和分支控制 D) 在一行上写多条语句时，应使用的分隔符是( C )。 A) 分号 B) 逗号 C) 冒号 D) 空格 以下可以将变量A、B值互换的是( D )。 A) A＝B ： B＝A B) A＝C ： C＝B ： B＝A C) A＝(A＋B)/2 ： B＝(A － B)/2 D) A＝A＋B ： B＝A - B： A＝A - B 下列四个选项中，不是VBA的条件函数的是( B )。 A) Choose B) If C) IIf D) Switch 在窗体中有一个文本框Text1，编写事件代码如下： Private Sub Form_Click() X ＝ val(Inputbox(\输入x的值\)) Y ＝ 1 If X<>0 Then Y ＝ 2 Text1.Value ＝ Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是( B )。 A) 1 B) 2 C) 3 D) 4 窗体中有命令按钮Command1和文本框Text1，事件过程如下： Function result(ByVal x As Integer)As Boolean If x Mod 2 ＝ 0 Then result ＝ True Else result ＝ False End If End Function Private Sub Command1_Click() x ＝ Val(InputBox(\请输入一个整数\ If 【】 Then Text1 ＝ Str(x)& \是偶数.\ Else 顺序、分支和循环控制 Text1 ＝ Str(x)& \是奇数.\ End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示\19是奇数\。那么在程序的括号内应填写( B )。 A) NOT result(x) B) result(x) C) result(x)＝\奇数\ D) result(x)＝\偶数\ 运行下列程序段，结果是( B )。 For m ＝ 10 to 1 step 0 k ＝ k ＋ 3 Next m A) 形成死循环 B) 循环体不执行即结束循环 C) 出现语法错误 D) 循环体执行一次后结束循环 运行下列程序，结果是( D )。 Private Sub Command32_Click() f0 ＝ 1 ： f1 ＝ 1 ： k ＝ 1 Do While k <＝ 5 f ＝ f0 ＋ f1 f0 ＝ f1 f1 ＝ f k ＝ k ＋ 1 Loop MsgBox \＝ \End Sub A) f ＝ 5 B) f ＝ 7 C) f ＝ 8 D) f ＝ 13 在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(m As Integer，n As Integer)As Integer Do While m<>n Do While m>n m ＝ m－n Loop Do While m 窗体打开运行后，单击命令按钮，则消息框的输出结果是( C )。 A) 2 B) 4 C) 6 D) 8 由\For i＝1 To 9 Step －3\决定的循环结构，其循环体将被执行( A )。 A) 0次 B) 1次 C) 4次 D) 5次