(26)在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Private Option Base 1 Sub C

21 查阅

（26）在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Private Option Base 1 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 IfX(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结构语句实现程序功能。程序执行过程如下：①当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。

计算机二级