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

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

Private Sub Command1_Click()

    Dim a As String

    a = "Visual Basic"

    Print String(5, a)

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A） VVVVV

B） Visua

C） Basic

D） 11

2、设有如下程序段：

x = 2

    For i = 1 To 10 Step 2

        x = x + i

    Next i

    Print x

运行以上程序后，x的值是

A) 26

B) 27

C) 38

D) 57

3、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click()

    Dim X As Integer

    Static Y As Integer

    X = 10

    Y = 5

    Call f1(X, Y)

    Print X, Y

End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)

    x1 = x1 + 2

    y1 = y1 + 2

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A） 10   5

B） 12   5 

C） 10   7 

D） 12   7

4、设有如下程序

Option Base 1

Private Sub Command1_Click()

    Dim a(10) As Integer

    Dim n As Integer

    n = InputBox("输入数据")

    If n < 10 Then

        Call GetArray(a, n)

    End If

End Sub

Private Sub GetArray(b() As Integer, n As Integer)

    Dim c(10) As Integer

    Dim j, i

    j = 0

    For i = 1 To n

        b(i) = CInt(Rnd() * 100)

        If b(i) / 2 = b(i) 2 Then

            j = j + 1

            c(j) = b(i)

        End If

    Next

    Print j

End Sub

以下叙述中错误的是

A） 数组b中的偶数被保存在数组c中

B） 程序运行结束后，在窗体上显示的是c数组中元素的个数

C） GetArray过程的参数n是按值传送的

D） 如果输入的数据大于10，则窗体上不显示任何显示

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

Option Base 1

Private Sub Command1_Click()

    Dim a

    a = Array(1, 2, 3, 4, 5)

    For i = 1 To UBound(a)

        a(i) = a(i) + i - 1

    Next

    Print a(3)

End Sub

程序运行后，单击命令按钮，则在窗体上显示的内存是

A） 4

B） 5

C） 6

D） 7

6、阅读下面的程序。

Option Base 1

Private Sub Form_Click()

    Dim arr, Sum

    Dim i As Integer

    Sum = 0

    arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)

    For i = 1 To 10

        If arr(i) / 3 = arr(i) 3 Then

            Sum = Sum + arr(i)

        End If

    Next i

    Print Sum

End Sub

程序运行后，单击窗体，输入结果为

A） 13

B） 14

C） 27

D） 15

7、执行以下程序段

Private Sub Command1_Click()

    Dim S As String

    Dim X, Y, Z As String

    Dim i As Integer

    S = "abcdabdcabcd"

    For i = 6 To 2 Step -2

        X = Mid(S, i, i)

        Y = Left(S, i)

        Z = Right(S, i)

        Z = UCase(X & Y & Z)

    Next i

    Print Z

End Sub

输出结果为

A） ABA

B） BCABCD

C） ABBABA

D） AABAAB

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

Private Sub Command1_Click()

    Dim Arr As Variant

    Dim i, sum

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

    sum = 0

    For i = 1 To 5

        sum = sum + Arr(i)

    Next i

    For i = 1 To 5

        If Arr(i) > (sum / 5) Then

            Print Arr(i);

        End If

    Next i

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A） 1 2

B） 1 2 3

C） 3 4 5

D） 4 5

9、下列叙述中不正确的是

A） 变量名的第一个字符必须是字母

B） 变量名的长度不超过255个字符

C） 变量名可以包含小数点或者内嵌的类型声明字符

D） 变量名不能使用关键字

10、在过程调用中，参数的传递可以分为____和按地址传递两种方式。

A） 按值传递

B） 按地址递

C） 按参数传递

D） 按位置传递

11、变量未赋值时，数值型变量的值为

A） 0

B） 空串“ ”

C） Null

D） 没任何值

12、表达式2+3*4^5=Sin(x+1)/2中最先进行的运算是____。

A） 4^5

B） 3*4

C） x+1

D） Sin()

13、以下叙述中错误的是

A） 一个工程可以包括多种类型的文件

B） Visual Basic应用程序既能以编译方式执行，也能以解释方式执行

C） 程序运行后，在内存中只能驻留一个窗体

D） 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

14、以10为底的x的常用对数表达式为____

A） LOG（X）

B） LOG10（X）

C） LOG（X）/LOG（e）

D） LOG(X)/LOG(10)

15、有变量定义语句Dim x, y As String，则可以知道x的类型是

A) 变体类型

B) 单精度型

C) 双精度型

D) 字符串型