单选题
下列程序的运行结果为______。
Private Sub Command1_ Click()
Dim s As Long
Dim x As Integer
s = 0
for x = 99 To 1 step - 2
s=s+ x
Next x
Print s
End Sub
A、
100
B、
500
C、
2500
D、
5000
【正确答案】
C
【答案解析】
[解析] 单循环次数“r=int((终值-初值+步长)/步长)”。计算结果是将1~100内的奇数相加。
提交答案
关闭