问题
单项选择题
在窗本上放置一个命令按钮Command1, 并编写下列单击事件的程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d=0 c=6 X=Array(2, 4, 6, 8, 10, 12) For i=1 To 6If X(i)＞c Then d=d+X(i) c=X(i)Else d=d-cEnd If Next i Print d End Sub
A．10
B．12
C．16
D．20
答案
参考答案：B
解析： 程序首先使用Array函数为x数组变量赋值，然后利用 For循环和If结构语句实现程序功能．程序执行过程如下： ①当i=1时，X(i)=2，d=d-c=-6；②当i=2时，X(i)=4，d=d- c=-12；③当i=3时，X(i)=6，d=d-c=-18；④当i=4时，X(i)=8，d= d+X(i)=-10，c=8；⑤当i=5时，X(i)=10，d=d+X(i)=0，c=10；⑥当i=6时，X(i)=12，d=d+X(i)=12，c=12。