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

第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 dEnd 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(