问题
单项选择题
下列程序的运行结果为______。
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内的奇数相加。