一、单项选择题.doc

一、单项选择题（每题只有一个答案是正确的，请将正确选项填入要求处）1. 以下4种描述中，错误的是_A. 常量又可分为文字常量和符号常量B. 文字常量也就是常数，一般包括字符串常量和数值常量两类C. 符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质D. 符号常量的使用和变量的使用没有差别D2. 下面合法的常量是_A. 1/2 B. abcd C. 1.2*5 D. FalseD3. Visual Basic中可以用类型说明符来标识变量的类型，其中表示货币型的是_A. % B. # C. D. $C4. 下面_是不合法的整常数。A.100 B.%O100 C.&H100 D.%100D5. 以下关键字中，不能定义变量的是_A. Declare B. Dim C. Public D. PrivateA6. 表达式16/4-25*8/4 MOD 52的值为_。A.14 B.4 C.20 D.2B7. 用十六进制表示Visual Basic的整型常数时，前面要加上的符号是_A. &h B. &o C. H D. OA8. Visual Basic日期常量的定界符是_A. # B. C. () D. A9. 数学关系3x10表示成正确的VB表达式为_。A.3=x10 B.3=x AND x=3 OR x10 D.3=x AND 10B10. 对于用户自定义的数据类型，以下4种描述中，错误的是_A. 记录类型中的字符串必须是定长字符串B. 其变量如果在窗体模块中定义，则必须加关键字PrivateC. 记录类型的定义必须放在模块的声明部分，先定义再使用D. 数据类型元素名可以是任何数据类型D11. ，/，Mod，*四个算术运算符中，优先级别最低的是_。A. B./ C.Mod D.*C12.A. a*b/(3*c*d) B.a/3*b/c/d C. a*b/3/c/d D. a*b/3*c*dD13. 表达式ASC（“F”）的类型是_A. 字符表达式 B. 关系表达式 C. 算术表达式 D. 逻辑表达式C14. 下面语句中有非法调用的是_A. x=SGN(-1) B. x=FIX(-1) C. x=SQR(-1) D. x$=CHR$(65)C15. 表达式23/5.8、235.8、23 Mod 5.8的运算结果分别是_A. 3、3.9655、3 B. 3.9655、3、5 C. 4、4、5 D. 3.9655、4、3B16. 如果变量a=2、b=abc、c=acd、d=5，则表达式ac AND bc的值是_A. True B. False C. Yes D. NoA17. 下面正确的赋值语句是_。A.x+y=30 B.y=*r*r C.y=x+30 D.3y=xC18. 为了给x,y,z三个变量赋初值1，下面正确的赋值语句是_。A.x=1y=1z=1 B.x=1,y=1,z=1 C.x=y=z=1 D.xyz=1A19. 以下4类运算符，优先级最低的是_A. 算术运算符 B. 字符运算符 C. 关系运算符 D. 逻辑运算符D20. A. f=x*x+3 B. If x=1 Then f=sqr(x+1) If x=1 Then f=sqr(x+1) If x=1 Then f=sqr(x+1) D. If x1 Then f=x*x+3 f=x*x+3 Else f=sqr(x+1)C21. 如果在立即窗口中执行以下操作：a=8 （是回车键）b=9 print ab 则输出的结果是_A. 1 B. 0 C. False D. TrueC22. 设a=6,则执行x=IIF(a5,-1,0)后,x的值为_A. 5 B. 6 C. 0 D. -1D23. 在Visual Basic中，y1+z2=a*SIN(b*x+c)+k表达式的类型是_A. 算术表达式 B. 关系表达式 C. 逻辑表达式 D. 字符表达式B24. 下面逻辑表达式的值为真的是_A. Aa B. 9a C. ThatThank D. 1212.1C25. 在下列算术运算符中，运算等级最高的是_A. 取负（-） B. 乘、除（*，/） C. 取模（MOD） D. 加、减（+，-）A26. 如果变量a=2,b=3,c=4,d=5，表达式NOT ab AND NOT dc的值是_A. True B. False C. 1 D. 0B27. 在一个有（1）逻辑运算（2）算术运算（3）关系运算混合在一起的表达式（无括号）中，其运算顺序为_A. （1）（2）（3） B. （3）（2）（1） C. （2）（3）（1） D. （2）（1）（3）C28. 表达式A%B&+C!-D#的结果为_A）整型 B）长整型 C）单精度型 D）双精度型D29. 下列符号中，可以用作VB变量名的是_。A. c%ab B.3sum C. sum3 D. LenC30. 在下列字符串中，正确的日期型常量是_A. 12/04/01 B. 12-04-2001 C. 12/04/01 D. #12/04/01#D31. 条件:1X=2或10=X1 AND X=10 AND X1 OR X=10 OR X1 OR X=10 OR X1 AND X=10 AND X15A32. 设有如下的记录类型Type Student number As String name As String age As IntegerEnd Type则正确引用该记录类型变量的代码是_A. S=张红 B. Dim s As Student =张红C. Dim s As Type Stuent D. Dim s As Type =张红 =张红B33. 有如下程序，运行时从键盘输入字符-，输出结果是_Private Sub Form_Click()op$=InputBox(op=)if op$=+ Then a=a+2if op$=- Then a=a-2Print aEnd SubA. -2 B. 0 C. +2 D. +0A34. 表达式a+b=c是_。A. 赋值表达式 B. 字符表达式 C. 算术表达式 D. 关系表达式D35. -32768的数据类型是_A. 整型常量 B. 浮点型常量 C. 符号常量 D. 字符串型常量D36. 在下列4个表达式中，非法的表达式形式是_A. A+B=C B. 0=1 C. 345+112 D. 1/2=0.5C37. 设 x=5，表达式10=xb And 93的值为_A. True B. False C. 表达式有错 D. 条件不足A41. 下面程序段的运行结果为_。 For i=3 To 1 Step-1 Print Space(5-i); For j=1 To 2*i-1 Print *; Next j Print Next IA. * B. * C. * D. * * * * * * * * *B42. 执行PRINT 18/2*3,-32命令后，屏幕显示情况为_A. 3 9 B. 3 -9 C. 27 -9 D. 27,-9C43. 执行PRINT 9.43.7,9.4 MOD 3.7命令后，屏幕显示情况为_A. 2 1 B. 3 0 C. 2 20 D. 1 2A44. 运行以下程序后，输出结果为_x%=1/4y%=11/4PRINT x%;y%ENDA. 0.25 0.75 B. 0 2 C. 0 3 D. 1 3C45. 窗体里有两个对象，分别是图片框Picture1和标签Label1。那么下面关于Print方法的使用中，错误的一条是_A. Picture1.Print 147 B. Print 147 C. Printer.Print 147 D. Label1.Print 147D46. 下面的_语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。A. Print A;Tab(9);b B. Print A;Spc(8);b C. Print A;Space(10);b D. Print A;Tab(8);bB47. 阅读下面的程序段：n1=InputBox(请输入第一个数：)n2=InputBox(请输入第二个数：)Print n1+n2当输入分别为111和222时，程序输出为_A. 111222 B. 222 C. 333 D. 程序出错A48. 语句Print Format (HELLO, ) 的输出结果是_。A. HELLO B. hello C. He D. heB49. 语句print (a=2) AND (b=-2);的输出结果是_A. True B. 结果不确定 C. -1 D. FalseD50. 以下程序段的输出字符的排列顺序是_For i=1 To 6 If i Mod 2=0 Then Print #; Else Print *; End IfNext iA. #*#*# B. # C. * D. *#*#*#D51. 设a=1,b=2,c=3,d=4，则表达式IIf(ab,a,IIf(c5,-1,0)后，x的值为_。A. 5 B. 6 C. 0 D. -1D66. 表达式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是_.A.0,15 B.-1,15 C.-4,15 D.-5,15D67. 可以同时删除字符串前导和尾部空格的函数是_。A. Ltrim B. Rtrim C. Trim D. MidC68. 当函数MsgBox返回值为1，对应的符号常量是vbOK。那么此时表示用户做的操作是_A. 用户单击了对话框中的“确定”按钮B. 用户单击了对话框中的“取消”按钮C. 用户单击了对话框中的“是”按钮D. 用户单击了对话框中的“否”按钮A69. 函数Int(Rnd*5)+1是在_范围 内产生随机整数。A. 0,6 B. 1,6 C. 0,5 D. 1,5D70. 由于Visual Basic在中，InputBox函数的默认返回值类型为字符串，那么当用InputBox函数作为数值型数据输入时，下列操作中可以有效防止程序出错的操作是_A. 事先对要接收的变量定义为数值型B. 在函数InputBox前面使用Str函数进行类型转换C. 在函数InputBox前面使用Value函数进行类型转换D. 在函数InputBox前面使用String函数进行类型转换A71. 已知a=12345678，则表达式Val(Left(a, 4) + Mid(a, 4, 2)的值是_。A. 123456 B. 123445 C. 8 D. 6B72. 表达式Len(123程序设计ABC)的值是_。A. 10 B. 14 C. 20 D. 17A73. 赋值语句g = 123 + Mid(123456, 3, 2)执行后，变量g中的值是_。A. 12334 B. 123 C. 12334 D. 157D74. 如果x是一个正实数，对x的第3位小数四舍五入的表达式是_。A. 0.01 * Int(x + 0.005) B. 0.01 * Int(100 * (x + 0.005)C. 0.01 * Int(100 * (x + 0.05) D. 0.01 * Int(x + 0.05)B75. 以下程序执行后，输出的结果是_m$=123n$=456k$=LCASE$(m$)j$=UCASE$(n$)Print Asc(k$),Asc(j$)A. 123 456 B. !#$% C. 49 52 D. 33 36C76. MsgBox函数的返回值的类型是_。A. 整数B. 字符串C. 逻辑值D. 日期A77. A=5，B=8，则(B-A)*Rnd+A的结果是介于_之间的数。A. 58 B. 05 C. 35 D. 03A78. 在过程中定义Dim x(1 to 10,3) As Single，则数组占用字节的内存空间是_A. 132 B. 80 C. 160 D. 120C79. 用Select Case语句选择|x|10情况的语句为：Case_。A. Not (-10 To 10) B. -10 To 10 C. Is 10 D. Abs(x)10C80. 若x=1，执行语句If x Then x = 0 Else x = 1的结果是：_。A.实时错误 B. 编译错误 C. x=1 D. x=0D81. 以下程序代码能执行的是:_。A.If a=1 Then b=0 Else c=0 End IfB.If a=1 Then : B=0: ElseIf C=0 Then : D=0C.If a = 1 Thenb = 0ElseIf c = 0 Then d = 0End IfD. If a = 1 Thenb = 0ElseIf c = 0 d = 0End IfC82. 下程序段的循环结构执行后，i的输出值是：_。 For i = 1 To 10 Step 2y = y + iNext iPrint IA. 25 B. 10 C. 11 D. 因为y初值不知道，所以不确定C83. 循环结构For I! = 1 To 10 Step 1.5的执行次数是：_。 A. 7 B. 8 C. 9 D.10A84. 下列结构中不属于循环结构的是：_。A. For/Next B. While/Wend C. With/End With D. Do/LoopC85. 下列结构中不属于分支结构的是：。A. If/End If B. Select Case/End Select C. With/End With D. If/Else/End IfC86. 以下程序段的运行结果是：Private Sub Form_Click()x = 5m = 1n = 1Dom = m * nn = n + 1Loop Until n 5Print x 2 + m / 3End SubA. 25 B. 45 C. 55 D. 65D87. Private Sub Form_Click()Dim s As Long, f As LongDim n As Integer, i As Integerf = 1n = 4For i = 1 To nf = f * is = s + fNext iPrint s=; sEnd SubA. 33 B. 34 C. 35 D. 36A88. Private Sub Form_Click()Dim I As Integer, X As String, Y As StringX = ABCDEFGFor I = 4 To 1 Step -1Y = Mid(X, I, I) + YNext IPrint YEnd SubA. ABCDDEFG B. ABCCDEDEFGC. ABCDEDEFG D. ABCDEEFFGB89. Private Sub Form_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 5 b = b * k If b = 15 Then Exit For Else k = k + 1 End If Next k Print k, bEnd SubA. 15 10 B. 10 5 C. 5 15 D. 15 5C90. Private Sub Form_Click()a = 1b = aDo Until a = 5X = a * bPrint Str(a) & * & Str(b) & =; Str(X);a = a + bb = b + aLoopEnd SubA. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=6A91. Private Sub Form_Click()X = abcdefghijkld = Asc(a) - Asc(A)n = Len(X)Y = For I = 1 To n Step 2Y = Chr(Asc(Mid(X, I, 1) - d) + YNext IPrint YEnd SubA. kigeca B. KIGECA C. ecakig D. ECAKIGB92. 下面程序段运行后，显示的结果是_。 Dim x If x Then Print x Else Print x+1 A.1 B.0 C.-1 D.显示出错信息A 93. A.If x=2 Then y=3 If x=1 Then y=2 If x0 Then y=1 If x=2 Then y=3 If x0 Then y=0 C.If x=2 Then y=0 y=3 ElseIf x0 Then ElseIf x=1 Then y=1 y=2 ElseIf x1 Then ElseIf x=0 Then y=2 y=1 Else Else y=3 y=0 End If End IfD94. 下面程序段，显示的结果是_。 Dim x x=Int(Rnd)+5 Select Case Case 5 Print优秀 Case 4 Print良好 Case 3 Print通过 Case Else Print不通过 End SelectA.优秀 B.良好 C.通过 D.不通过A95. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是_。A.If sex=男And age0 Then n=n+1B.If sex=男And age40 and(duty=教授or duty=副教授) Then n=n+1C.If sex=男And age40 And Right(duty,2)=教授 Then n=n+1D.If sex=男And agey,x,y) B.If xy Then Max=x Else Max=y C.Max=x If y=x Then Max=y D.If y=x Then Max=y Max=xD97. 以下_是正确的For Next结构。 A.For x=1 To Step 10 B.For x=3 To -3 Step -3 Next x Next x C.For x=1 To 10 D.For x=3 To 10 Step 3 re: Next x Next y If i=10 Then GoTo reB98. 下列循环能正常结束循环的是_。 A.i=5 B.i=1 DO DO i=i+1 i=i+2 Loop Until i0 Loop Until i=1C99. 哪个程序段不能分别正确显示1!，2!，3!，4!的值_。A.For i=1 To 4 B.For i=1 To 4 n=1 For j=1 To i For j=1 To i n=1 n=n*j n=n*j Next j Next j Print n Print n Next i Next iC.n=1 D.n=1 For j=1 To 4 j=1 n=n*j Do While j=4 Print n n=n*j Next j Print n j=j+1 LoopB100. 若要退出 For 循环，可使用的语句为_。A. Exit B. Exit Do C. Time D. Exit ForD101. _Private Sub Form_Click()a=5If a=3 Then Print 3;End IfIf a=4 Then Print 4;End IfIf a=5 Then Print 5;End IfIf a=6 Then Print 6;End IfEnd SubA. 3 4 5 6 B. 4 5 6 C. 5 6 D. 6C102. 当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为_If ab Then If cd Then x=1 Else If ac Then If b2 b=a+1Case Is3 b=a+2Case Is5 b=a+3Case Else b=a+4End SelectPrint a;bEnd SubA. 4 4 B. 4 5 C. 4 6 D. 4 7B104. 执行如下程序段时，从键盘输入-5，输出的结果是_x=-5s=Val(InputBox(请输入s的值:)Select Case s Case Is0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3End SelectPrint x;yA. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5A105. 下面程序段的作用是_m=0:n=0For i=1 To 10 x= Val(InputBox(请输入x的值:) If x0 Then m=m+x ElseIf x=副教授 AND A$=女 THEN N=N+1 D. IF A$=女 AND (B$=副教授 OR B$=教授) THEN N=N+1D109. 某林场1995年植树100亩，以后每年的植树面积按5%的速度增长，能正确计算到1998年时四年的植树总面积的程序是_A. s=100:r=0.05 B. s=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r) s=s*(1+r) Next i sum=sum+s Print i Next i End Print sumC. s=100:r=0.05 D. s0=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r)+s s=s0*(1+r) Next i sum=sum+s Print i Next i End Print sumB110. 下程序段执行后，变量s、x的值分别为_. Dim s As Integer, x As Integers = 10: x = 1Do While x =i Then m=m+1