[单项选择题] 下列程序的运行结果为______。
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内的奇数相加。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)