问题补充:
单项选择题:
在窗体上放置一个命令按钮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。