如有错误、请更正后共享，并在页眉处注明更正处！一、选择题：（55道）1. 下列关于宏和模块的叙述中，正确的是A)模块是能够被程序调用的函数B)通过定义宏可以选择或更新数据C)宏或模块都不能是窗体或报表上的事件代码D)宏可以是独立的数据库对象，可以提供独立的操作动作2. VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是（）。

A.本地窗口B.立即窗口C.监视窗口D.快速监视窗口3. VBA程序的多条语句可以写在一行中，其分隔符必须使用符号A) : B) 'C) ; D),4. VBA的逻辑值进行算术运算时，True值被当作A)0 B)-1C)1 D)任意值5. 以下常量的类型说明符使用正确的是（）。

A）Const A1!=2000B）Const A1%=60000 C）Const A1%="123" D）Const A1$=True6. 以下声明I是整型变量的语句正确的是（）。

A）、Dim I,j As Integer B）、I=1234C）、Dim I As Integer D）、I As Integer7. 下面属于VBA常用标准数据类型的是（）。

A）、数值型B）、字符型C）、货币型D）、以上都是8. 下列程数据类型中，不属于VBA的是：Ａ）长整型Ｂ）布尔型Ｃ）变体型Ｄ）指针型9. 下列逻辑表达式中，能正确表示条件“X和Y至少有一个是偶数”的是（）。

A. X Mod 2=0 OR Y Mod 2=0B.X Mod 2=1 OR Y Mod 2=1C.X Mod 2=0 And Y Mod 2=0D.X Mod 2=1 And Y Mod 2=110. 以下可以得到“2+6=8”的结果的VBA表达式是（）。

A. “2+6” &”=” & 2+6B.” 2+6”+”=”+2+6C .2+6& “=” & 2+6 D.2+6 +”=” + 2+611. 在VBA 语言中，以下关于运算优先级比较，叙述正确的是（）。

A.算术运算符> 关系运算符>连接运算符> 逻辑运算符B.算术运算符> 连接运算符>关系运算符> 逻辑运算符C.关系运算符>算术运算符>连接运算符> 逻辑运算符D.关系运算符>连接运算符>算术运算符> 逻辑运算符12. 布尔型数据转换为其他类型数据时，false转换为（）。

A.0B.1C.-1D.213. 下来逻辑表达式中，能正确表示条件“x和y都是奇数”的是A) x mod 2=1 or y mod 2=1 B) x mod 2=0 or y mod 2=0C) x mod 2=1 and y mod 2=1D) x mod 2=0 and y mod 2=014. 结束Sub过程代码的运行应该使用下面的哪条语句？（）。

（A）Exit Property (B) End（C）Exit Sub (D)Stop Sub15. 下列不是分支结构的语句是A)If…Then….EndIf B)While…WendC)If…Then…Else…EndIf D)Select…Case…EndSele ct16. VBA 中，Print方法可以在()对象上输出数据。

（多选）（A）窗体（B）桌面（C）标题栏（D）立即窗口（E）图片框（F）状态栏（G）打印机（H）代码窗口17. 下面程序段[]能够正确实现目的：如果X<Y，则A=15，否则A=-15。

A.If X<Y Then A=15B.If X<Y Then A=15:Print AA=-15 A=-15:debug.Print Adebug.Print AC.If X<Y ThenD.If X<Y Then A=15A=15:debug.Print A A=-15Else debug.Print AA=-15:debug.Print A End IfEnd If18. 在下面程序运行时键入2，则该程序的运行结果是[]。

Private sub command1_click()X=inputbox(“请输入一个整数”)Select case xCase Is<-3debug.Print (x+1)/(x+3)Case –3 To 3debug.Print x*x+1Case Is>3debug.Print (x+1)/(x-3)End selectEnd subA.2B.0.6C.5D.-319. 下列程序段的执行结果为[]。

x=5y=-20If Not x>0 Then x=y-3 Else y=x+3Print x-y;Y-xA.-3 3B.5 -8C.3 -3D.25 -2520. 数学关系4≤x≤9表示为正确的VB表达式为（）。

A)4<=x<=9 B)4<=x And x<=9C)x>=4 Or x<=9 D)x>=4 And x<=921.以下语句中，与语句“If A <= "M" And B <> "N" Then C = p Else C = q”等价的是（）。

A)If A <= "M" Or B = "N" Then C = q Else C = pB)If A <= "M" And B = "N" Then C = q Else C = pC)If Not(A <= "M" And B = "N") Then C = q Else C = pD)If A <= "M" And B = "N" Then C = q Else C = p22. VB提供了结构化程序设计的3种基本结构，3种基本结构是（）。

A)递归结构，选择结构，循环结构B)选择结构，过程结构，循环结构C)过程结构，输入输出结构，转向结构D)选择结构，循环结构，顺序结构23.下面程序段，求两个数中的大数，不正确的是（）。

A) MAX=IIF(X>Y,X,Y)B) IF X>Y THEN MAX=X ELSE MAX=YC) MAX=XIF Y>=X THEN MAX=YD) IF Y>=X THEN MAX=YMAX=X24. 运行下列程序，输出的结果为_____。

Private Sub test()s=0Dos = (s + 1) * (s + 2)Number = Number + 1Loop Until s>=30debug.Print Number;sEnd Sub(A)0 1 (B)30 30 (C)4 30 (D)3 18225. 运行下列程序，输出的结果为_____。

Private Sub test()A$ = "54321": B$ = "abcde"j = 1Do While j <= 5debug.Print Mid(A$, 6 - j, 1) + Mid(B$, j, 1);j = j + 1Loopdebug.PrintEnd Sub(A)a1b2c3d4e5 (B)a5b4c3d2e1(C)e1d2c3b4a5 (D)1a2b3c4d5e26. 下面程序段的执行结果为______。

I=0For g=10 to 19 Step 3I=I+1Next gdebug.Print I(A) 4(B) 5 (C) 3 (D) 627. 运行下列程序，输出的结果为_____。

Private Sub test()For j = 1 To 10a = 20 - (2 * j - 1)If a / 3 = a \ 3 Or a / 5 = a \ 5 ThenSum = Sum + aEnd IfNext jdebug.Print "Sum="; SumEnd Sub(A)Sum= 27 (B)Sum= 15 (C)Sum= 32 (D)3228. 运行下列程序，结果为_____。

Sub test()a$ = "A WORKER IS OVER THERE"x = Len(a$)For i = 1 To x - 1b$ = Mid(a$, i, 2)If b$ = "ER" Then s = s + 1Next idebug.Print sEnd Sub(A)1 (B)2 (C)3 (D)429. 在窗体上画一个命令按钮，然后编写如下事件过程：sub test()Dim Str1 As String, Str2 As StringStr1=InputBox("请输入一个字符串"）For i=1 To Len(Str1)Str2=UCase(Mid(Str1,i,1))+Str2Next idebug.Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为_____。

(A) abcdefg(B) ABCDEFG(C) gfedcba (D) GFEDCBA30. 选择下面程序的运行结果（）。

Sub test()Dim n As IntegerDon=n+1Debug.print nLoop While n<0End Sub（A）0 （B）1（C）2（D）没有任何输出结果31. 下面程序段的执行结果为______。

k=0For j=1 to 2For i=1 to 3k=i+1Next iFor i=1 to 7k=k+1Next iNext jdebug.Print k(A) 10 (B) 6 (C) 11 (D) 1632. 下列程序段执行的结果为（）For i = 1 To 3k = iNextPrint k, iA) 3 3 B) 3 4 C) 4 3 D) 4 433. 下列代码段的执行结果为（）i = 4x = 5Doi = i + 1x = x + 2Loop Until i >= 7debug.Print "i="; i, "x="; xA) i=4 x=5 B) i=7 x=13C) i=8 x=7 D) i=7 x=1134. 语句Dim A(-3 to 5)As Integer定义的数组的元素个数是____。