VB第5章 数组和自定义类型.docVIP

第5章 数组和用户自定义类型 一. 例题与解析 （1）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() d = 0: c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 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)89 B)99 C)23 D)77 【答案】C 【解析】语句Option Base 1使得数组的下标从1开始，因此，语句x = Array(10, 12, 21, 32, 24)使得数组x各元素的值分别为：x(1)=10，x(2)=12，x(3)=21，x(4)=32，x(5)=24。当i为1时，x(i)c的值为假，执行语句d=d-c，使得d的值为-10；i为2时，x(i)c的值为真，执行语句d=d+x(i)和c=x(i)，使得d和c的值分别为2和12；i为3时，x(i)c的值为真，执行语句d=d+ x(i)和c=x(i)，使得d和c的值分别为23和21; i为4时，x(i)c的值为真，执行语句d=d+x(i)和c=x(i)，使得d和c的值分别为55和32； i为5时，x(i)c的值为假，执行语句d=d-c，使得d的值为55-32=23。 （2）在窗体画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 。 A)12 B)13 C)14 D)15 【答案】A 【解析】根据程序，i=1时，j的值分别为2、3、4，则array(1,2)=3，array(1,3)=4，array(1,4)=5；i=2时，j的值分别为2、3、4，则array(2,2)=4，array(2,3)=5，array(2,4)=6；i=3时，j的值分别为2、3、4，则array(3,2)=5，array(3,3)=6，array(3,4)=7。因此文本框内显示的值应该为12。 （3）设有如下程序： Private Sub Command1_Click() Dim a Dim i As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i); Next End Sub 程序运行后，单击命令按钮，则在窗体上显示的是 。 A)4 3 2 1 B)5 4 3 2 C)6 5 4 3 D)7 6 5 4 【答案】C 【解析】数组a初始化后，数组各元素的值分别是： a(0)=1，a(1)=2，a(2)=3，a(3)=4，a(4)=5，a(5)=6，a(6)=7，a(7)=8，a(8)=9。 For循环内的Print语句在同一行输出元素a(5)、a(4)、a(3)、a(2)的值，即6、5、4、3。 （4）用下面语句定义的数组的元素个数是 。 Dim A(-3 To 5) As Integer A）6 B）7 C）8 D）9 【答案】D 【解析】在声明数组的同时指定数组下标下界（如本例的-3）和下标上界（如本例的5），则数组A的元素分别是A(-3)、A(-2)、A(-1)、A(0)、A(1)、A(2)、A(3)、A(4)、A(5)，共9个元素。 （5）设有如下数组声明语句，则下列对数组元素的引用中错误的是 。 Dim A(5) A）A(0)=1.57 B）A(6)=12 C）A(5)=qaz D）A(1)=True 【答案】B