问题
单项选择题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Commandl_Click()
Dim c AS Integer，d As Integer
d=0
c=6
x=Array(2,4,6,8,10,12)
For i=1 To 6
If x(i)＞c Then
d=d+x(i)
c=x(i)
ElSe
d=d-c
End If
Next
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为（）
A．10
B．16
C．12
D．20
答案
参考答案：C
解析：
[评析] Array函数是为数组赋值，而Option Base l是用来设置数组下标是从1开始。本题中，由于刚开始c的值为6，故前三个数组值不大于c，执行三次d=d-c，d=-18；而后三个数组值都大于c，执行三次d二d+ x(i)，d=-18+8+10+12=12。