在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6

admin2010-11-20  22

问题 在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:
Option Base1
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

解析 程序首先使用Army函数为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。
转载请注明原文地址:https://jikaoti.com/ti/Bsg0FFFM
0

最新回复(0)