End Sub
程序运行后，单击窗体，则在窗体上显示的是（ ）。
（A）15 （B）16 （C）20 （D）25
21. 下列数组说明语句中正确的是（ ）。
（A）Dim a(-1 To 5,8)AS String （B） Dim a(n,n)AS Integer （C）Dim a(0 To 8,5 To –1)AS Single （D） Dim a(10,-10)AS Double
22. 语句Option Base 1 :Dim a(3,4,5)定义的数组中所包含的数组元素的个数是( )。 （A） 10 （B）60 （C）120 （D）345
23. 窗体上有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
24. 已知在4行3列的数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，编写程序如下：
Option Base 1
Private Sub Command1_Click()
Dim sum As Integer,score(4,3) As Integer sum＝0
For i＝1 To 4 For j＝1 To 3
Score(I,j)=inputbox(“”)
sum＝sum＋score(i，j) Next j
Print \第\个学生的总分是：\；sum Next i End Sub
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是（ ）。
（A）把外层循环语句For i＝1 To 4改为For i＝1 To 3
内层循环语句For j＝1 To 3改为For j＝1 To 4
（B）把sum＝0移到For i＝1 To 4和 For j＝1 To 3之间 （C）把sum＝sum＋score(i，j)改为sum＝sum＋score(j，i) （D）把sum＝sum＋ score(i，j)改为sum＝score(i，j)
25. 语句Dim a(－3 To 4,3 To 6)As Integer定义的数组的元素个数是（ ）。 （A）18 （B）21 （C）28 （D）32
26. 在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为M1。设窗体Form1标题为\双击控件数组中的第3个按钮,打开代码编辑器,写下如下代码: Privae Sub M1_Click(Index As Integer) Form1.Caption=\End Sub
运行时,单击按钮数组中的第1个按钮,窗体标题为（ ） 。 （A）Form （B） M1 （C）myform1 （D）myform2
27. 在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：
Option Base 0
Private Sub Command1_Click()
Dim A1(4)As Integer，A2(4)As Integer For k＝0 To 2
A1(k＋1)＝InputBox(\请输入一个整数\ A2(3－k)＝A1(k＋1) Next k
Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ （A）0 （B）1 （C）2 （D）3
28. 假定通过复制、粘贴操作建立了一个文本框数组Text1，以下说法中错误的是（ （A）数组中每个文本框的名称(Name属性)均为Text1 （B）若未做修改，数组中每个文本框的大小都一样 （C）数组中各个文本框使用同一个Change事件过程 （D）数组中每个文本框的Index属性值都相同
29. 以下数组定义语句中，错误的是（ ）。
（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
30. 默认情况下，Dim a(5，-2 To 2)，数组a的元素个数是（ ）。 （A）20 （B）24 （C）25 （D）30
31. 在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim M(10)As Integer
。。） ） For k＝1 To 10 M(k)＝12－k Next k x＝6
Print M(2＋M(x)) End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
（A）4 （B）6 （C）8 （D）10
32. 窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程
Private Sub Optionl_Click(Index As Integer) ?
End Sub
下面关于此过程的参数Index的叙述中正确的是（ ）。 （A）Index为1表示单选按钮被选中,为0表示未选中 （B）Index的值可正可负
（C）Index的值用来区分哪个单选按钮被选中 （D）Index表示数组中单选按钮的数量
33. 1个二维数组可以存放1个矩阵。在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放1个4×3矩阵(即只有12个元素)的是（ ）。 （A）Dim a(－2 To 0,2)As Integer （B）Dim a(3,2)As Integer （C）Dim a(4,3)As Integer
（D）Dim a(－1 To－4，－1 To－3)As Integer
34. 下面的语句用Array函数为数组变量a的各元素赋整数值：
a＝Array(1,2,3,4,5,6,7,8,9) 针对a的声明语句应该是（ ）。
（A）Dim a As Integer （B）Dim a
（C）Dim a(9)As Integer （D）Dim a() As Integer
35. 设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（ ）。
（A）Name （B）Index （C）Caption （D）Left
36. 在窗体上画的3个名称为Command1命令按钮是控件数组，从左到右，控件数组下标分别为0、1、2，如下图所示。
编写如下程序：
Private Sub Command1_Click(Index As Integer) Dim s As String Select Case Index Case 0
s = \单击第一个按钮\Case 1
s = \单击第二个按钮\Case 2
s = \单击第三个按钮\End Select
MsgBox s, Index End Sub
执行程序后，单击中间的按钮，显示对话框的形式为（（A）
（B）
（C）
。 ）
（D）
37. 设有数组说明语句：Dim c（-１To 2，１To５），且i=1,则下列表示数组c的元素选项中（ ）是正确的。
（A） c(i+j) （B） c(i)(j) （C）c(i-1,i+1) （D）c(1,0)
38. 以下说法中错误的是（ ）。
（A）命令按钮只能识别单击(Click)事件 （B）可以用多个命令按钮组成命令按钮数组
（C）命令按钮数组的Name属性一致，而Index属性有区别
（D）通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用
39. 在窗体上面画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim arr(10) As Integer For i = 1 To 10
arr(i) = 10 - 2 * i Next i i = 5
Print arr(arr(i) + 2) End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
（A）4 （B）6 （C）8 （D）10
40. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click() Dim daya As Variant
daya = Array(\昨天\今天\明天\后天\Print daya(2) End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。 （A）昨天 （B）今天 （C）明天 （D）后天
三 程序填空题
1. 编写程序，设有一包含10个元素的有序数组，从键盘上输入一个数，将其插入数组中使其仍有序。
Option Explicit