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

1、有关程序代码窗口的说法错误的是

A) 在窗口的垂直滚动条的上面，有一个“拆分栏”，利用它可以把窗口分为两个部分，每个窗口显示代码的一部分

B) 双击控件设计窗体即可打开程序代码窗口

C) 在程序代码的左下角有两个按钮，可以选择全模块查看或者是过程查看

D) 默认情况下，窗体的事件是Load

2、在窗体上添加一个命令按钮，然后编写如下程序：

Private Sub Command1_Click()

    MySub 2

    MySub 3

    MySub 4

End Sub

Sub MySub(a As Integer)

    Static x As Integer

    x = x + a

    Print x;

End Sub

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

A) 2 3 4

B) 2 5 9

C) 3 5 4

D) 2 4 3

3、有如下事件过程，单击命令按钮扣，输出结果为

Private Sub Command1_Click()

    Dim b%(1 To 4), j%, t#

    For j = 1 To 4

        b(j) = j

    Next j

    t = Tax(b())

    Print "t="; t,

End Sub

Function Tax(a() As Integer)

    Dim t#, i%

    t = 1

    For i = 2 To UBound(a)

        t = t * a(i)

    Next i

    Tax = t

End Function

A) t=18

B) t=24

C) t=30

D) t=32

4、下列程序段的执行结果为

Private Sub Command1_Click()

    a = 2

    b = 0

    Select Case a

    Case 1

        Select Case b

        Case 0

            Print "**0**"

        Case 1

            Print "**1**"

        End Select

    Case 2

        Print "**2**"

    End Select

End Sub

A) **0**

B) **1**

C) **2**

D) 0

5、设有声明语句如下

Option Base 1

Dim a(20, -1 To 10, 2 To 9) As Integer

则数组a中全部元素的个数

A) 2310

B) 1920

C) 1500

D) 1658

6、单击命令按钮，下列事件过程的执行结果为

Private Sub Command1_Click()

    Dim x As Integer, y As Integer

    x = 40: y = 72

    Call PtoP(x, y)

    Print x; y

End Sub

Public Sub PtoP(ByVal n As Integer, ByVal m As Integer)

    n = n 10 + 2

    m = m 10 + 2

End Sub

A) 0 8

B) 40 72

C) 4 50

D) 78 50

7、设有两个串p和q，求q在p中首次出现位置的运算称作

A) 连接

B) 模式匹配

C) 求子串

D) 求串长

正确答案： B

8、下列叙述中，正确的是

A) 软件就是程序清单

B) 软件就是存放在计算机中的文件

C) 软件应包括程序清单及运行结果

D) 软件包括程序和文档

9、下列程序段的执行结果为

    i = 4

    j = 5

    Do

        i = i + 1

        j = j ^ 2

    Loop Until i >= 7

    Print "I="; i

    Print "J="; j

A) I=4

　J =258694

B) I=7

　J =256987

C) I=6

　J =365840

D) I=7

　J =390625

10、以下属于Visual Basic中合法的数组元素的是

A) K8

B) k[8]

C) k(0)

D) k[8]

11、Sub过程与Function过程最根本的区别是

A) Sub过程的过程不能返回值，而Function过程能返回值

B) Function过程可以有形参，Sub过程不可以

C) Sub过程可以使用Call语句直接使用过程名调用，而Function过程不可以

D) 两种过程参数的传递方式不同

12、运行下面的程序后，输出的结果为

Cls

Dim t(5, 5) As Integer

For i = 1 To 5: t(i, i) = 1: Next

For i = 1 To 5

    For j = 1 To 5

        Print t(i, j),

    Next j

    Print

Next i

A)

1 1 1 1 1

1 1 1 1 1

1 1 1 1 1

1 1 1 1 1

1 1 1 1 1

B)

1

1

1

1

1

C)

1 0 0 0 0

0 1 0 0 0

0 0 1 0 0

0 0 0 1 0

0 0 0 0 1

D)

1 1 1 1 1

13、下列程序执行的结果为

x=25: y=20: z=7

Print "S("; x + z * y; ") "

A) S( 47 )

B) S( 165 )

C) S( 25+7*20 )

D) S( 87 )

14、运行下列程序段后，显示的结果为

    x = 63

    y = 36

    If x < y Then

        Print y

    Else

        Print x

    End If

A) 63

B) 36

C) 55

D) 2332

15、下列程序段的执行结果为

    a = 85

    If a > 60 Then degree = 1

    If a > 70 Then degree = 2

    If a > 80 Then degree = 3

    If a > 90 Then degree = 4

    Print "degree="; degree

A) degree= 1

B) degree= 2

C) degree= 3

D) degree= 4

16、下列程序段的执行结果为

    a = 5

    For k = 1 To 0

        a = a * k

    Next k

    Print k; a

A) -1 6

B) -1 16

C) 1 5

D) 11 21

17、有如下事件过程：

Function UNC(ByVal x As Integer, ByVal y As Integer) As Integer

    Do While y <> 0

        sic = x / y

        x = y

        y = sic

    Loop

    UNC = x

End Function

Private Sub Command1_Click()

    Dim a As Integer

    Dim b As Integer

    a = 12

    b = 2

    x = UNC(a, b)

    Print x

End Sub

以下是该函数的调用过程，该程序的运行结果是

A) 0

B) 6

C) 2

D) 80

18、单击命令按钮时，下列程序的执行结果是

Private Sub Command1_Click()

    Dim a As Integer, b As Integer, c As Integer

    a = 3

    b = 4

    c = 5

    Print SecProc(c, b, a)

End Sub

Function FirProc(x As Integer, y As Integer, z As Integer)

    FirProc = 2 * x + y + 3 * z + 2

End Function

Function SecProc(x As Integer, y As Integer, z As Integer)

    SecProc = FirProc(z, x, y) + x + 7

End Function

A) 20

B) 25

C) 37

D) 32

19、下列说法正确的是

A) 在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放控件

B) 若一个控件上有4个黑色的小方块，表明该控件是活动的

C) 窗体中活动控件只能有一个

D) 非活动控件在窗体是隐藏的

20、语句A=B+C代表的意思是

A) 变量A等于B+C的值

B) 变量A等于B的值，然后再加上C的表达式

C) 将变量A存入变量存入B中，然后再加上C的表达式

D) 将变量A存入变量B+C中