[单项选择题] 下列程序的运行结果为______。
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内的奇数相加。
[单项选择题] 下列程序的运行结果为______。
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
参考答案:
C问题解析:
单循环次数“r=int((终值-初值+步长)/步长)”。计算结果是将1~100内的奇数相加。上一篇 [单项选择题] 编写如下程序: Private Sub Command1_Click() Dim i As Integer, j As Integer n = InputBox( "输入一
下一篇 [单项选择题] 为了支持压栈线程与弹栈线程之间的交互与同步,在下画线处依次填入的语句是 public class IntStack { private int idx=0; private