1.  阅读程序：
    Option Base 1
    Private Sub Form_Click()
    Dim Arr(3, 3) As Integer
    For i=1 To 3
    For i=1 To 3
    If j=i Or j=3-i+1 Then
    Arr(i, j)=1
    Else
    Arr(i, j)=0
    End If
    Next j
    Next i
    For i=1 To 3
    For j=1 To 3
    Print Arr(i, j);
    Next j
    Print
    Next i
    End Sub
    程序运行后，如果单击窗体，则输出结果为

• A.1 1 1
      1 1 1
      1 1 1
• B.0 0 0
      0 0 0
      0 0 0
• C.1 0 0
      0 1 0
      0 0 1
• D.1 0 1
      1 0 1
      0 1 0

2.  有下面程序代码：
    Private Sub Command1_Click()i=1
    Do While i＜5
    j=1
    Do j=j+1
    Print "*";
    Loop Until i+j＞10
    Print i=i+2
    Loop
    End Sub
    程序运行时输出字符“*”的个数是

• A.50
• B.20
• C.16
• D.15

3.  以下数组定义语句中，错误的是

• A.Static a(10) As Integer
• B.Dim c(3，1 To 4)
• C.Dim d(-10)
• D.Dim b (0 To 5，1 To 3) As Integer

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

• A.18
• B.28
• C.21
• D.32

5.  下面正确使用动态数组的是

• A.Dim arr () AsInteger
      …
      ReDim arr(3, 5)
• B.Dim arr() As Integer
      …
      ReDim arr (50) As String
• C.Dim arr()
      …
      ReDim arr(50) As Integer
• D.Dim arr(50) As Integer
      …
      ReDim arr(20)

6.  设有如下数组定义语句：
    Dim a(-1 To 4，3)As Integer
    以下叙述中正确的是

• A.a数组有18个数组元素
• B.a数组有20个数组元素
• C.a数组有24个数组元素
• D.语法有错

7.  语句DimArr(-2 To 4) As Integer所定义的数组的元素个数为

• A.7个
• B.6个
• C.5个
• D.4个

8.  下列数组定义中错误的是

• A.Dim a(-5 To -3)
• B.Dim a(3 To 5)
• C.Dim a(-3 To -5)
• D.Dim a(-3 To 3)

9.  以下关于数组的叙述中，错误的是

• A.Variant类型的数组中各数组元素的类型可以不同
• B.各数组元素可以是不同类型的控件
• C.各数组元素通过下标进行区别
• D.各数组元素具有相同的名称

10.  设有如下声明语句
    Option Base 1
    Dim arr(2, -1 To 5)As Integer
    则数组arr中数组元素的个数是

• A.10
• B.12
• C.14
• D.21

11.  以下叙述中错误的是

• A.用ReDim语句可以改变数组的维数
• B.用ReDim语句可以改变数组的类型
• C.用ReDim语句可以改变数组每一维的大小
• D.用ReDim语句可以对数组中的所有元素置0或空字符串

12.  设有下面的程序段：
    x=InputBox("请输入一个整数")
    ReDim a(x)
    For k=x To 0 Step -1
    a(k)=k
    Next k
    一般，在这段程序之前应先进行数组a的定义。下面定义语句中正确的是

• A.Dim a(100)As Integer
• B.Dim a()As Integer
• C.Dim a As Integer
• D.Dim a(0 To 100) As Integer

13.  如果要在语句：a=Array(1，2，3，4，5)的前面声明变量a，则正确的声明是

• A.Dim a(4)As Integer
• B.Dim a(5)As Variant
• C.Dim a(1 To 5)As Integer
• D.Dim a As Variant

14.  设有如下一段程序：
    Private Sub Command1_Click()
    Static a As Variant
    a=Array("one", "two", "three", "four", "five")
    Print a(3)
    End Sub
    针对上述事件过程，以下叙述中正确的是

• A.变量声明语句有错，应改为Static a(5)As Variant
• B.变量声明语句有错，应改为Static a
• C.可以正常运行，在窗体上显示three
• D.可以正常运行，在窗体上显示four

15.  在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：
    Private Sub Command1_Click()
    Dim n() As Integer
    Dim a, b As Integer
    a=InputBox("Enter the first number")
    b=InputBox("Enter the second number")
    ReDim n(a To b)
    For k=LBound(n) To UBound(n)
    n(k)=k
    Print n(k);
    Next k
    End Sub
    程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为

• A.1 2
• B.2 3
• C.3 4
• D.4 5

16.  在程序中要使用Array函数给数组arr赋初值，则以下数组变量定义语句中错误的是

• A.Static arr
• B.Dim arr(5)
• C.Dim arr()
• D.Dim arr As Variant

17.  有下面程序代码：
    Private Sub Command1_Click()
    a=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10):n=UBound(a)
    For k=0 To UBound(a)/2
    Print a(k)*a(n); :n=n-1
    Next k
    End Sub
    程序运行后，单击命令按钮Command1，输出结果是

• A.2 6 12 20 30
• B.2 12 20 56 90
• C.30 28 24 18 10
• D.10 18 24 28 30

18.  有下面程序代码：
    Option Base 1
    Private Sub Command1_Click()
    Dim a(10)As Integer, x, b
    x=InputBox("请输入一个多位整数")
    For k=1 To Len(x)
    b=Mid(x, k, 1)
    a(Val(b)+1)=a(Val(b)+1)+1
    Next k
    For k=1 To 10
    Print a(k);
    Next k
    End Sub
    程序运行时，单击命令按钮Command1，输入2355270224，则输出是

• A.1 0 4 1 1 2 0 1 0 0
• B.0 4 1 1 2 0 1 0 0 0
• C.2 3 5 5 2 7 0 2 2 4
• D.4 2 2 0 7 2 5 5 3 2

19.  窗体上有Command1、Command2两个命令按钮。现编写以下程序：
    Option Base 0 Dim
    a() As Integer, m As Integer
    Private Sub Command1_Click()
    m=InputBox("请输入一个正整数")
    ReDim a(m)
    End Sub
    Private Sub Command2_Click()
    m=InputBox("请输入一个正整数")
    ReDim a(m)
    End Sub
    运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是

• A.5
• B.6
• C.10
• D.11

20.  在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
    Private Sub Command1_Click()
    Dim M(10) As Integer
    For k=1 To 10
    M(k)=12-k
    Next k
    x=8
    Print M(2+M(x))
    End Sub
    运行程序，单击命令按钮，在窗体上显示的是

• A.6
• B.5
• C.7
• D.8

21.  在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程：
    Private Sub Command1_Click()
    Dim arr(10)
    For i=6 To 10
    arr(i)=i-5
    Next i
    Label1.Caption=arr(0)+arr(arr(10)/arr(6))
    End Sub
    运行程序，单击命令按钮，则在标签中显示的是

• A.0
• B.1
• C.2
• D.3

22.  在窗体上画一个名称为Text1的文本框，并编写如下程序：
    Option Base 1
    Private Sub Form_Click()
    Dim arr
    Dim Start As Integer, Finish As Integer Sum As Integer
    arr=Array(12, 4, 8, 16)
    Start=LBound(arr):Finish=UBound(arr):Sum=0
    For i=Start To Finish
    Sum=Sum+arr(i)
    Next i
    c=Sum/Finish
    Text1.Text=c
    End Sub
    运行程序，单击窗体，则在文本框中显示的是

• A.40
• B.10
• C.12
• D.16

23.  以下过程的功能是从数组中寻找最大值：
    Private Sub FindMax(a() As Integer, ByRef Max As Integer)
    Dim s As Integer, f As Integer Dim i As Integer
    S=LBound(a):f=UBound(a)
    Max=a(s)
    For i=s To f
    If a(i)＞Max Then Max=a(i)
    Next
    End Sub
    以下关于上述过程的叙述中，错误的是

• A.语句Call FindMax(a, m)可以调用该过程，其中的a是数组，m是Integer类型变量
• B.For循环次数等于a数组的元素数
• C.过程末尾应该增加一条返回最大值的语句FindMax=Max
• D.参数Max用于存放找到的最大值

24.  窗体上有一个名称为Command1的命令按钮，并有如下程序代码：
    Option Base 1
    Private Sub Command1_Click()
    Dim a%(3, 3)
    For i=1 To 3
    For j=1 To 3
    If i＞1 And j＞1 Then
    a(i, j)=a(a(i-1, j-1), a(i, j-1))+1
    Else
    a(i, j)=i*j
    End If
    Next
    Next
    Print a(2, 2); a(3, 3)
    End Sub
    运行程序，单击命令按钮，窗体上显示的是

• A.1 3
• B.2 1
• C.2 2
• D.3 3

25.  窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：
    Option Base 1
    Private Sub Command1_Click()
    Dim a(4, 4)As Integer
    For i=1 To 4
    For j=1 To 4
    a(i, j)=Int(Rnd*100)
    Next
    Next
    x=a(1, 1) y=a(1, 1)
    For i=1 To 4
    For j=1 To 4
    If x＜a(i, j)Then x=a(i, j)
    If y＞a(i, j)Then y=a(i, j)
    Next
    s=s+a(i, i)
    Next
    Print x, y, s
    End Sub
    关于以上程序，以下叙述中错误的是

• A.二维数组元素的值是不大于99的随机整数
• B.计算结果x是二维数组各元素中的最大数
• C.计算结果y是二维数组各元素中的最小数
• D.计算结果s是二维数组各行第一个元素之和

26.  窗体上有一个名称为Command1的命令按钮。要求编写程序，把文件f1.txt的内容写到文件f2.txt中，然后将f1.txt删除。命令按钮的单击事件过程如下：
    Private Sub Command1_Click()
    Open"c:\f1.txt" For Input As #1
    Open"c:\f2.txt: For Output As #2
    Do While Not EOF(2)
    Line Input #1.str1
    Print #2.str1
    Loop
    Close Kill"c:\f1.txt"
    End Sub
    该程序运行时发生错误，应该进行的修改是

• A.打开f1.txt应该使用Output方式，打开f2.txt应该使用Input方式
• B.Not EOF(2)应该改为Not EOF(1)
• C.Line Input应改为Get
• D.Close语句改为Close All

27.  窗体上有名称为Command1的命令按钮，其事件过程如下：
    Option Base 1
    Private Sub Command1_Click()
    Dim a
    Dim b(10)As Integer
    a=Array(2, 4, 7, 3, 9, 6)
    For i=LBound(a) To UBound(a)
    b(i)=a(i)+i
    Sum=Sum+b(i)
    Next i
    Print Sum
    End Sub
    运行程序，单击命令按钮时，窗体上显示的是

• A.44
• B.46
• C.50
• D.52

28.  窗体上有一个名称为Command1的命令按钮，有程序如下：
    Option Base 1
    Private Sub Command1_Click()
    Dim a(10) As Integer'第1个For
    For i=1 To 10
    a(i)=Int(Rnd*100+100)
    Print a(i);
    Next
    x=a(i):y=x'第2个For
    For i=1 To 10
    If x＜a(i) Then x=a(i)
    If y＞a(i) Then y=a(i)
    s=s+a(i)
    Next
    Print x, y, s
    End Sub
    关于上述程序的叙述中，正确的是

• A.程序运行出错，第1个For循环之后的x=a(i)赋值语句错
• B.程序正常运行，x是10个随机数中的最大值
• C.程序正常运行，s是10个随机数的和
• D.程序正常运行，10个随机数的范围是100-200

29.  在窗体上画一个文本框，其名称为Text1，然后编写如下程序：
    Option Base 1
    Private Sub Form_Click() Dim Arr(10) As Integer
    For i=6 To 10
    Arr(i)=i-3
    Next i
    Text1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10)))
    End Sub
    程序运行后，单击窗体，在文本框中显示的内容是

• A.7
• B.8
• C.9
• D.10

30.  假定有如下程序：
    Private Sub Form_Click()
    Dim a(4)As Integer, b(4)As Integer
    For k=0 To 2
    a(k+1)=Val(InputBox("请输入一个整数:"))
    b(3-k)=a(k+1)
    Next k
    Print b(k)
    End Sub
    运行程序，单击窗体，依次输入3、6、9，输出结果为

• A.3
• B.6
• C.9
• D.1

31.  阅读程序：
    Option Base 1
    Private Sub Form_Click()
    Dim a(3, 3)As Integer
    For i=1 To 3
    For j=1 To 3
    a(i, j)=______
    Print a(i, j);
    Next j
    Print
    Next i
    End Sub
    运行上面的程序，单击窗体，输出结果如下：
    1 4 7
    2 5 8
    3 6 9
    则在横线处应填入的内容为

• A.i+j
• B.i*j
• C.(i-1)*3+j
• D.i+(j-1)*3

32.  阅读程序：
    Option Base 1
    Sub P(b() As Integer)
    For i=1 To 4
    b(i)=2*i
    Next i
    End Sub
    Private Sub Form_Click()
    Dim a(4)As Integer
    For i=1 To 4
    a(i)=i+4
    Next i
    P a
    For i=1 To 4
    Print a(i)
    Next i
    End Sub
    运行上面的程序，单击窗体，输出结果为

• A.2 4 6 8
• B.5 6 7 8
• C.10 12 14 16
• D.4 8 12 16

33.  在窗体上画一个命令按钮，然后编写如下程序：
    Option Base 1
    Private Sub Command1_Click()
    Dim Arr(10)As Integer
    For i=1 To 10
    Arr(i)=11-i
    Next i
    x=InputBox("输入一个整数(3～10)")
    Print Arr(2+Arr(x))
    End Sub
    程序运行后，单击命令按钮，在输入对话框中输入17，则输出结果为

• A.3
• B.4
• C.5
• D.6

34.  设有下面程序代码：
    Private Sub Command1_Click()
    Dim a As Variant
    a=Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75, 64)
    m=a(0)n=m
    For k=1 To UBound(a)
    If a(k)＞m Then
    n=m:m=a(k)
    Else If a(k)＞n And a(k)＜＞m Then
    n=a(k)
    End If
    Next k
    Print n
    End Sub
    程序运行时的输出是

• A.数组中最大的数(即98)
• B.数组中最小的数(即12)
• C.数组中第2大的数(即87)
• D.数组中第1个数(即22)

35.  设有下面程序代码：
    Option Base 1
    Private Sub Command1_Click()
    Dim x(6)
    a=Array(4, 2, 5, 1, 6, 3)
    b=Array(64, 24, 98, 27, 58, 41)
    For k=1 To 6
    x(a(k))=b(k)
    Next k
    For k=1 To 6
    Print x(k);
    Next k
    End Sub
    程序运行时的输出是

• A.27 24 41 64 98 58
• B.64 24 98 27 58 41
• C.24 27 41 58 64 98
• D.98 64 58 41 27 24

36.  以下关于控件数组的叙述中，正确的是

• A.数组中各个控件具有相同的名称
• B.数组中可包含不同类型的控件
• C.数组中各个控件具有相同的Index属性值
• D.数组元素不同，可以响应的事件也不同

37.  以下关于控件数组的叙述中，错误的是

• A.各数组元素共用相同的事件过程
• B.各数组元素通过下标进行区别
• C.数组可以由不同类型的控件构成
• D.各数组元素具有相同的名称

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

• A.数组中每个命令按钮的名称(Name属性)均为Command1
• B.若未做修改，数组中每个命令按钮的大小都一样
• C.数组中各个命令按钮使用同一个Click事件过程
• D.数组中每个命令按钮的Index属性值都相同

39.  窗体上已有的3个单选按钮组成了1个名为ChkOpt1的控件数组。  用于区分控件数组ChkOpt1中每个元素的属性是

• A.Caption
• B.ListCount
• C.ListIndex
• D.Index

40.  窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程
    Private Sub Option1_Click(Index As Integer)
    End Sub
    下面关于此过程的参数Index的叙述中正确的是

• A.Index为1表示单选按钮被选中，为0表示未选中
• B.Index的值可正可负
• C.Index的值用来区分哪个单选按钮被选中
• D.Index表示数组中单选按钮的数量

41.  设在窗体上有一个名称为Check1的复选框数组，并有以下事件过程：
    Private Sub Check1_Click(Index As Integer)
    End Sub
    则下面叙述中错误的是

• A.单击数组中任何复选框都会调用此事件过程
• B.参数Index的值等于单击数组中某个复选框的Index属性的值
• C.上面的过程是数组中第1个复选框的事件过程
• D.从过程的首部(即第1行)无法确定数组中复选框的个数

42.  下面关于控件数组的叙述中正确的是

• A.控件数组中所有控件的名称相同，但其Index属性值各不相同
• B.控件数组中所有控件的名称相同，但其Value属性值各不相同
• C.控件数组中每个元素都是独立的控件，因此都有各自的事件过程
• D.上述都是错误的

43.  下列关于控件数组的叙述中，正确的是

• A.控件数组可以由不同类型的控件组成
• B.控件数组元素的最小下标值为1
• C.在设计阶段，可以改变控件数组元素的Index属性值
• D.控件数组的名字由Caption属性指定

44.  窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：
    Private Sub Text1_Change(Index As Integer)
    Select Case Index
    Case 0
    Text1(1).FontSize=Text1(0).FontSize*2 Text1(1).Text=Text1(0).Text
    Case 1
    Text1(0).FontSize=Text1(1).FontSize/2Text1(0).Text=Text1(1).Text
    Case Else
    MsgBox"执行Else分支"
    End Select
    End Sub
    关于上述程序，以下叙述中错误的是

• A.Index用于标识数组元素
• B.本程序中Case Else分支的语句永远不会被执行
• C.向任何一个文本框输入字符，都会在另一个文本框中显示该字符
• D.下标为0的文本框中显示的字符尺寸将越来越小