计算机课选择题、填空题汇总.doc

如有错误、请更正后共享，并在页眉处注明更正处！一、选择题：（55道）1. 下列关于宏和模块的叙述中，正确的是 A)模块是能够被程序调用的函数 B)通过定义宏可以选择或更新数据 C)宏或模块都不能是窗体或报表上的事件代码D)宏可以是独立的数据库对象，可以提供独立的操作动作2. VBA代码调试过程中，能够显示出所有在当前过程中变量声明及变量值信息的是（ ）。 A.本地窗口 B.立即窗口 C.监视窗口 D.快速监视窗口3. VBA程序的多条语句可以写在一行中，其分隔符必须使用符号A) : B) C) ; D),4. VBA的逻辑值进行算术运算时，True值被当作A)0 B)-1 C)1 D)任意值5. 以下常量的类型说明符使用正确的是（ ）。 A）Const A1!=2000 B）Const A1%=60000 C）Const A1%=123 D）Const A1$=True6. 以下声明I是整型变量的语句正确的是（）。A）、Dim I,j As IntegerB）、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=0 B.X Mod 2=1 OR Y Mod 2=1 C.X Mod 2=0 And Y Mod 2=0 D.X Mod 2=1 And Y Mod 2=110. 以下可以得到“2+6=8”的结果的VBA表达式是（ ）。A. “2+6” &”=” & 2+6 B.” 2+6”+”=”+2+6 C .2+6& “=” & 2+6 D.2+6 +”=” + 2+611. 在VBA 语言中，以下关于运算优先级比较，叙述正确的是（ ）。 A.算术运算符 关系运算符 连接运算符 逻辑运算符 B.算术运算符 连接运算符 关系运算符 逻辑运算符 C.关系运算符 算术运算符 连接运算符 逻辑运算符 D.关系运算符 连接运算符 算术运算符 逻辑运算符12. 布尔型数据转换为其他类型数据时，false转换为（ ）。 A.0 B.1 C.-1 D.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=1 D) x mod 2=0 and y mod 2=014. 结束Sub过程代码的运行应该使用下面的哪条语句？（ ）。（A）Exit Property (B) End（C）Exit Sub (D)Stop Sub15. 下列不是分支结构的语句是A)IfThen.EndIf B)WhileWendC)IfThenElseEndIf D)SelectCaseEndSelect16. VBA 中，Print方法可以在()对象上输出数据。（多选） （A）窗体 （B）桌面 （C）标题栏 （D）立即窗口 （E）图片框 （F）状态栏 （G）打印机 （H）代码窗口17. 下面程序段能够正确实现目的：如果XY，则A=15，否则A=-15。A.If XY Then A=15 B.If XY Then A=15:Print A A=-15 A=-15:debug.Print A debug.Print AC.If XY Then D.If XY Then A=15 A=15:debug.Print A A=-15 Else debug.Print A A=-15:debug.Print A End If End If18. 在下面程序运行时键入2，则该程序的运行结果是。 Private sub command1_click()X=inputbox(“请输入一个整数”)Select case x Case Is3 debug.Print (x+1)/(x-3)End selectEnd subA.2 B.0.6 C.5 D.-319. 下列程序段的执行结果为。 x=5 y=-20 If Not x0 Then x=y-3 Else y=x+3 Print x-y;Y-xA.-3 3 B.5 -8 C.3 -3 D.25 -2520. 数学关系4x9表示为正确的VB表达式为（）。A)4=x=9 B)4=x And x=4 Or x=4 And x=9 21. 以下语句中，与语句“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 Y,X,Y)B) IF XY THEN MAX=X ELSE MAX=YC) MAX=X IF Y=X THEN MAX=Y D) IF Y=X THEN MAX=YMAX=X24. 运行下列程序，输出的结果为_。Private Sub test() s=0 Do s = (s + 1) * (s + 2) Number = Number + 1 Loop Until s=30 debug.Print Number;sEnd Sub(A)0 1 (B)30 30 (C)4 30 (D)3 182 25. 运行下列程序，输出的结果为_。Private Sub test() A$ = 54321: B$ = abcde j = 1 Do While j = 5 debug.Print Mid(A$, 6 - j, 1) + Mid(B$, j, 1); j = j + 1 Loop debug.PrintEnd Sub(A)a1b2c3d4e5 (B)a5b4c3d2e1 (C)e1d2c3b4a5 (D)1a2b3c4d5e26. 下面程序段的执行结果为_。I=0For g=10 to 19 Step 3 I=I+1Next gdebug.Print I(A) 4 (B) 5 (C) 3 (D) 627. 运行下列程序，输出的结果为_。Private Sub test() For j = 1 To 10 a = 20 - (2 * j - 1) If a / 3 = a 3 Or a / 5 = a 5 Then Sum = Sum + a End If Next j debug.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 - 1 b$ = Mid(a$, i, 2) If b$ = ER Then s = s + 1 Next i debug.Print sEnd Sub(A)1 (B)2 (C)3 (D)429. 在窗体上画一个命令按钮，然后编写如下事件过程：sub test() Dim Str1 As String, Str2 As String Str1=InputBox(请输入一个字符串） For i=1 To Len(Str1) Str2=UCase(Mid(Str1,i,1)+Str2 Next i debug.Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串abcdefg，则单击确定按钮后在窗体上的输出结果为_。(A) abcdefg (B) ABCDEFG (C) gfedcba (D) GFEDCBA30. 选择下面程序的运行结果（ ）。 Sub test() Dim n As Integer Do n=n+1 Debug.print n Loop While n= 7 debug.Print i=; i, x=; x A) 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定义的数组的元素个数是_。(A)6 (B)7 (C)8 (D)935.语句Option Base 1: Dim a(3,4)定义的数组中，所包含的数组元素的个数是_。(A)12 (B)7 (C)20 (D)1536. 语句Dim a(3,4,5)定义的数组中所包含的数组元素的个数是_。(A)12 (B)60 (C)120 (D)34537. 下面的数组声明语句中_是正确的。(A)Dim A3,4 As Integer (B)Dim A(3,4) As Integer(C)Dim A3;4 As Integer (D)Dim A(3;4) As Integer37. 程序段Sub Form_Click( ) Dim a(1 to 20) As Integer Dim k As Integer For k=1 To 20 a(k)=k*k Next k msgbox a(k) End Sub 执行的结果为：_。(A) 400 (B) 20 (C)441 (D)出错38.下列程序段的执行结果是_。Dim M(10)For I=0 To 10 M(I)=2*INext Imsgbox M(M(3)(A)12 (B)6 (C)0 (D)439. 下列程序段的执行结果是_。Dim A(5)For I=1 to 5 A(I)=I*INext Imsgbox A(I-1)(A)5 (B)25 (C)0 (D)1640. 设执行以下程序段时依次输入1、3、5，执行结果为_。 Dim a(4) As Integer,b(4) As Integer For K=0 To 2 a(K+1)=Val(InputBox(请输入数据:) b(3-K)=a(K+1) Next K msgbox b(K)(A)1 (B)3 (C)5 (D)041. 下列程序段的执行结果为_。Dim M(10)For K=1 To 10 M(K)=11-KNext KX=6msgbox M(2+M(X)(A)2 (B)3 (C)4 (D)542. 下列程序段的执行结果为_。Dim M(10),N(10)I=3For T=1 To 5 M(T)=T N(I)=2*I+TNext Tmsgbox N(I)msgbox M(I)(A)3 11 (B)3 15 (C)11 3 (D)15 343. 以下说法不正确的是_。(A) 使用Redim语句可以改变数组的维数(B) 使用Redim语句可以改变数组的类型(C) 使用Redim语句可以改变数组每一维的大小(D) 使用Redim语句可以对数组中的所有元素进行初始化44. 程序段： Sub Command1_Click( ) Dim m(1 to 10) As Integer,k As Integer For k=1 to 10 m(k)=11-k Next k For k=1 to 10 msgbox m(m(k)Next k End Sub程序运行时，单击命令按钮时，程序的输出结果是_。(A) 10 9 8 7 6 5 4 3 2 1 (B) 1 3 5 7 9 2 4 6 8 10 (C) 2 4 6 8 10 5 7 9 (D) 1 2 3 4 5 6 7 8 9 1045.下列程序段的执行结果为_。Dim A(10,10)For I=2 To 4 For J=4 To 5 A(I,J)=I*J Next JNext IMsgBox A(2,5)+A(3,4)+A(4,5)(A)22 (B)42 (C)32 (D)5246. 下列程序段的执行结果为_。Dim A(10),B(5)For I=1 To 10 A(I)=INext IFor J=1 To 5 B(J)=J*20Next JA(5)=B(2)MsgBox A(5)(A)5 (B)10 (C)20 (D)4047.下列程序段的执行结果为_。Dim M(2)For I=1 To 2 M(I)=0Next IK=2For I=1 To K For J=1 To K M(J)=M(I)+1 MsgBox M(K) Next JNext I(A)1 2 2 3 (B)1 2 3 4 (C)0 2 2 3 (D)0 1 2 348. 使用Function语句定义一个函数过程，其返回值的类型_。(A)只能是符号常量(B)是除数组之外的简单数据类型(C)可在调用时由运算过程决定(D)由函数定义时As子句声明49. 可以使用_语句退出Sub过程。(A)Exit Sub (B)Go Off (C)End Sub (D)Exit50. 在主调过程中的参数称为_。(A)形参 (B)实参 (C)主参 (D)辅参51. 程序段 Sub Command1_Click() Dim x As Integer,y As Integer,z As Integer x=5：y=7：z=0 Call p1(x,y,z) msgbox Str(z) End Sub Sub p1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 程序运行结果是_。(A)0 (B)12 (C)Str(z) (D)没有显示52. Sub过程和Function过程最根本的区别是_。(A)Sub过程的过程名不能返回值，而Function过程能通过过程名返回值(B)Sub过程可以使用call语句或直接使用过程名，而Function过程不能(C)两种过程参数的传递方式不同(D)Function过程可以有参数，Sub过程不能有参数53. 现有如下程序:Sub Form_Click() s=0 For i=1 To 5 s=s+f(5+i) Next msgbox sEnd SubPublic Function f(x As Integer) If x=10 Then t=x+1 Else t=x+2 End