VB考试客观练习题.docx

1、VB考试客观练习题VB考试客观练习题(附正确答案) 一,单项选择题(1-251题) 1.以下4种描述中,错误的是_ D _. A. 常量在程序执行期间其值不会发生改变 B. 根据数据类型不同,常量可分为字符型常量,数值常量,日期/时间型常量和布尔型常量 C. 符号常量是用一个标识符来代表一个常数,好象是为常数取一个名字,但仍保持常数的性质 D. 符号常量的使用和变量的使用没有差别 2.下面合法的常量是_ D _. A. 1/2 B. abcd C. 1.2*5 D. False 3.Visual Basic中可以用类型说明符来标识变量的类型,其中表示货币型的是_ C _. A. % B. #

2、C. D. $ 4.下面_ B_是不合法的整常数. A.100 B.%O100 C.&H100 D.&O100 5.以下关键字中,不能定义变量的是_A_. A. Declare B. Dim C. Public D. Private 6.表达式16/4-25*8/4 MOD 52的值为_B_. A. 14 B. 4 C. 20 D. 2 7.用十六进制表示Visual Basic的整型常数时,前面要加上的符号是_A_. A. &H B. &O C. H D. O 8.Visual Basic日期型常量的定界符是_A_. A. # B. C. () D. 9.数学关系式3x10表示成正确的VB表

3、达式为_B_. A. 3=x10 B. 3=x AND x=3 OR x10 D. 3=x AND b 则输出的结果是_C_. A. 1 B. 0 C. False D. True 20.已知a=12345678,则表达式Left(a, 4) + Mid(a, 4, 2)的值是_B_. A. 123456 B. 123445 C. 123445 D. 1279 21.在Visual Basic中,y1+z2=a*Sin(b*x+c)+k表达式的类型是_B_. A. 算术表达式 B. 关系表达式 C. 逻辑表达式 D. 字符表达式 22.下列表达式的值为真的是_C_. A. Aa B. 9a C

4、. ThatThank D. 1212.1 23.在下列算术运算符中,运算等级最高的是_A_. A. 取负(-) B. 乘,除(*,/) C. 取模(MOD) D. 加,减(+,-) 24.如果变量a=2,b=3,c=4,d=5,表达式NOT ab AND NOT dc的值是_B_. A. True B. False C. 1 D. 0 25.在一个有(1)逻辑运算,(2)算术运算,(3)关系运算混合在一起的表达式(无括号)中,其运算顺序为_C_. A. (1)(2)(3) B. (3)(2)(1) C. (2)(3)(1) D. (2)(1)(3) 26.表达式A%+B&+C!-D#的结果为

5、_D_. A. 整型 B. 长整型 C. 单精度型 D. 双精度型 27.下列符号中,可以用作VB变量名的是_C_. A. c%ab B. 3sum C. sum3 D. Len 28.在下列表达式中,正确的日期型常量是_D_. A. 12/04/01 B. 12-04-2001 C. 12/04/01 D. #12/04/01# 29.条件:1X=2或101.7 Or W1.7 And W62.5 D. T=62.5 41.在过程内部定义的局部变量,仅在声明它的_ B _中有效. A. 方法 B. 过程 C. 属性 D. 对象 42.假设A=Good Morning.,B=Afternoon

6、,Boys.,下列表达式中结果是Good Boys.的是_ A_. A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5) C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5) 43.下列关于变体类型的描述,其中正确的是_ C _. A. 变体是一种没有类型的数据 B. 变体的空值就表示该变体的值为0 C. 一个变量没有定义就赋值,该变量即为变体类型 D. 变体是赋给变量某一种类型数据后,就不能再赋给它另一类型的数值 44.下列程序段的运行结果为_B_. For i=3 To 1 Step -1 Print

7、Space(5-i); For j=1 To 2*i-1 Print *; Next j Print Next i A. * B. * C. * D. * * * * * * * * * 45.执行 PRINT 18/2*3,-32 命令后,输出结果为_C_. A. 3 9 B. 3 -9 C. 27 -9 D. -9 27 46.执行 PRINT 9.43.7,9.4 MOD 3.7 命令后,输出结果为_ A _. A. 2 1 B. 3 0 C. 2 20 D. 1 2 47.运行以下程序段后,输出结果为_ C _. x%=1/4 y%=11/4 PRINT x%;y% A. 0.25 0

8、.75 B. 0 2 C. 0 3 D. 1 3 48.窗体里有两个对象,分别是图片框Picture1和标签Label1,下面关于Print方法的使用中,错误的一条是_ D _. A. Picture1.Print 147 B. Print 147 C. Printer.Print 147 D. Label1.Print 147 49.下面的_ B _语句可以实现:先在窗体上输出大写字母A,然后在同一行的第10列输出小写字母b. A. Print A;Tab(9);b B. Print A;Tab(10);b C. Print A;Space(10);b D. Print A;Tab(8);b

9、 50.阅读下面的程序段: n1=InputBox(请输入第一个数:) n2=InputBox(请输入第二个数:) Print n1+n2 当输入分别为111和222时,程序输出为_ A _. A. 111222 B. 222 C. 333 D. 程序出错 51.语句Print Format(HELLO, 4 Print m End Sub A. 25 B. 45 C. 55 D. 24 92.以下程序段的运行结果是_A_. Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f =

10、1 n = 4 For i = 1 To n f = f * i s = s + f Next i Print s=; s End Sub A. 33 B. 34 C. 35 D. 36 93.以下程序段的运行结果是_B_. Private Sub Form_Click() Dim I As Integer, X As String, Y As String X = ABCDEFG For I = 4 To 1 Step -1 Y = Y + Mid(X, I, 1) Next I Print Y End Sub A. ABCD B. DCBA C. DEFG D. GFED 94.以下程序段

11、的运行结果是_C_. 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 End If Next k Print k, b End Sub A. 3 15 B. 2 12 C. 4 24 D. 5 15 95.以下程序段的运行结果是_ A_. Private Sub Form_Click() a = 1 b = a Do Until a = 5 X = a * b Print Str(a) & * & Str(b) & =;

12、Str(X), a = a + b b = b + a Loop End Sub A. 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=6 96.以下程序段的运行结果是_B_. Private Sub Form_Click() x = abcdef y = Asc(b) - Asc(a) z = Len(x) Print y,z End Sub A. 1 2 B. 1 6 C. 2 2 D. 2 6 97.下面程序段运行后,显示的结果是_A_. Dim x If x Then Print x Else Print x+1 A. 1

13、B. 0 C. -1 D. 显示出错信息 98.运行下列程序段,显示的结果是_A_. x=Int(Rnd)+5 Select Case x Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 通过 Case Else Print 不通过 End Select A. 优秀 B. 良好 C. 通过 D. 不通过 99.下列If语句统计满足性别为男,职称为副教授以上,年龄小于40岁条件的人数,不正确的语句是_D_. A. If sex=男And age0 Then n=n+1 B. If sex=男And age40 and(duty=教授or duty=副教授

14、) Then n=n+1 C. If sex=男And agey Then Max=x Else Max=y C. Max=x If y=x Then Max=y D. If y=x Then Max=y Max=x 101.以下正确的程序段是_ B_. 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=10 To 1 re: Next x Next y If i=10 Then GoTo re 102.下列循环能正常结束的是_C_. A. i=5 B. i=1 DO D

15、O i=i+1 i=i+2 Loop Until i10 Loop Until i=1 103.若要退出For循环,可使用的语句为_D_. A. Exit B. Exit Do C. Time D. Exit For 104.当a=1,b=3,c=5,d=4时,执行下面一段程序后,x的值为_B_. If aIf cx=1 Else x=2 End If Else If c0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 106.下面程序段的作用是_D_

16、. m=0:n=0 For 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+1 110.以下程序段执行后,变量s,x的值分别为_ C_. Dim s As Integer, x As Integer s = 10: x = 1 Do While x c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Su

17、b 程序运行后,单击命令按钮,输出结果是_C_. A. 89 B. 99 C. 23 D. 77 129.以下程序段的运行结果是_D_. Private Sub Form_Click() Dim ary(1 To 4) As Integer Dim i As Integer Dim sum As Integer sum = 1 For i = 1 To 4 ary(i) = i sum = sum + ary(i) Next i Print sum End Sub A. 8 B. 9 C. 10 D. 11 130.下列语句声明的数组a包含的元素个数有_A_. Dim a(3 ,-2 to 2,5) A. 120 B. 75 C. 60 D. 13 131.以下程序输出的结果是_C_. Option Base 1