在窗体上放置一个命令按钮Command1 并编写下列单击事件的程序： Option Base 1

问题补充：

单项选择题:

在窗体上放置一个命令按钮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 6

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．10

B．12

C．16

D．20

答案：

答案：B

解析： 程序首先使用Array函数为X数组变量赋值，然后利用For循环和If结构语句实现程序功能。程序执行过程如下：

(1)当i=1时，x(i)=2，d=d-c=-6；(2)当i=2时，x(i)=4，d=d-c=-12；(3)当i=3时，x(i)=6，d=d-c=.18；(4)当i=4时，x(i)=8，d=d+x(i)=-10，c=8；(5)当i=5时，X(i)=1O，d=d+x(i)=o，c=10；(6)当i=6时，X(i)=12，d=d+X(i)=12，c=12。