Visual Basic答题闯关测试题（三）

1、执行语句 Dim X,Y As Integer 后,

A) X和Y均被定义为整型变量

B) X和Y均被定义为变体类型变量

C) X被定义为整型变量,Y被定义为变体变量

D) X被定义为变体类型变量,Y被定义为整型变量

2、以下关系表达式中，其值为True的是

A) "XYZ">"XYz"

B) "VisualBasic"<>"visualbasic"

C) "the"="there"

D) "Integer"<"Int"

3、有下面的代码，其中语句Print i*j 的执行次数是

    For i = 1 To 3

        For j = 5 To 1 Step -1

            Print i * j

        Next j

    Next i

A) 15

B) 16

C) 17

D) 18

4、阅读程序：

Private Sub Form_Click()

    a = 0

    For j = 1 To 15

        a = a + j Mod 3

    Next j

    Print a

End Sub

程序运行后，单击窗体，输出结果是

A) 105

B) 1

C) 120

D) 15

5、语句Dim a(-3 To 4,3 To 6) As Integer 定义的数组的元素个数是

A) 18

B) 28

C) 21

D) 32

6、在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

    Dim Arr

    Arr = Array(1, 2, 3, 4)

    j = 1

    For i = 4 To 1 Step -1

        S = S + Arr(i) * j

        j = j * 10

    Next i

    Print S

End Sub

程序运行后，单击命令按钮，其输出结果是

A) 4321

B) 1234

C) 34

D) 12

7、假定通过复制，粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是

A) 数组中每个命令按钮的名称（Name属性）均为Command1

B) 若未做修改,数组中每个命令按钮的大小都一样

C) 数组中各个命令按钮使用同一个Click事件过程

D) 数组中每个命令按钮的Index属性值都相同

正确答案： D

8、以下关于函数过程的叙述中，正确的是

A) 函数过程形参的类型与函数返回值的类型没有关系

B) 在函数过程中，过程的返回值可以有多个

C) 当数组作为函数过程的参数是，既能以传值方式传递，也能以传址方式传递

D) 如果不指明函数过程参数的类型，则该参数没有数据类型

9、在窗体上画一个命令按钮(名称为Command1)，并编写如下代码:

Function fun1(ByVal a As Integer, b As Integer) As Integer

    Dim t As Integer

    t = a - b

    b = t + a

    fun1 = t + b

End Function

Private Sub Command1_Click()

    Dim x As Integer

    x = 10

    Print fun1(fun1(x, (fun1(x, x - 1))), x - 1)

End Sub

程序运行后，单击命令按钮，输出结果是

A) 10

B) 0

C) 11

D) 21

10、以下关于过程及过程参数的描述中，错误的是

A) 过程的参数可以是控件名称

B) 调用过程时使用的实参的个数应与过程形参的个数相同

C) 只有函数过程能够将过程中处理的信息返回到调用程序中

D) 窗体可以作为过程的参数

11、设有以下程序

Private Sub Form_Click()

Dim x, y, a, i

    x = 50

    For i = 1 To 4

        y = InputBox("请输入一个整数")

        y = Val(y)

        If y Mod 5 = 0 Then

            a = a + y

            x = y

        Else

            a = a + x

        End If

    Next i

    Print a

End Sub

程序运行后，单击窗体，在输入对话框中依次输入5、10、15、20，输出结果为

A) 100

B) 50

C) 120

D) 70

12、设a=5,b=4,c=3,d=2，下列表达式的值是：3>2*b Or a=c And b<>c Or c>d

A) 1

B) True

C) False

D) 2

13、设a="明日科技倾力打造VB编程词典", 则以下使变量b的值为"VB编程词典"的语句是

A) b=Left(a,6)

B) b=Mid(a,6)

C) b=Right(a,6)

D) b=Mid(a,8,6)

14、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click()

    Dim i As Integer, x As Integer

    For i = 1 To 6

        If i = 1 Then x = i

        If i <= 4 Then

            x = x + 1

        Else

            x = x + 2

        End If

    Next i

    Print x

End Sub

程序运行后，单击命令按钮，其输出结果为

A) 9

B) 6

C) 12

D) 15

15、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序:

Option Base 1

Private Sub Command1_Click()

    Dim c As Integer, d As Integer

    d = 0

    c = 6

    x = Array(2, 4, 6, 8, 10, 12)

    For i = 1 To 6

        If x(i) > c Then

            d = d + x(i)

            c = x(i)

        Else

            d = d - c

        End If

    Next i

    Print d

End Sub

程序运行后,如果单击命令按钮,则在窗体上输入的内容为

A) 10

B) 16

C) 12

D) 20

16、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

    x = InputBox("Input")

    Select Case x

    Case 1, 3

        Print "分支 1"

    Case Is > 4

        Print "分支 2"

    Case Else

        Print "Else 分支 "

    End Select

End Sub

程序运行后，如果在输入对话框中输入2，则窗体上显示的是

A） 分支1

B） 分支2

C） Else分支

D） 程序出错

17、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

    Static x As Integer

    Cls

    For i = 1 To 2

        y = y + x

        x = x + 2

    Next

    Print x, y

End Sub

程序运行后，连续3次单击Command1按钮后，窗体上显示的是

A） 4   2

B） 12   18 

C） 12   30 

D） 4   6

18、以下合法的VB标识符是

A) For Loop

B) Const

C) 9abc

D) a#x

19、表达式 5 Mod 3+35*2的值是

A） 0

B） 2

C） 4

D） 6

20、设x=4,y=8,z=7，以下表达式的值是x<y And (Not y>z) Or z<x

A） 1

B） -1

C） True

D） False

Visual Basic答题闯关测试题（三）答案