Question

vb,代码问题求解！

某同学编写一个输出1到100之间所有偶数之和的程序

Private Sub Command1_Click()
Dim x As Single
For i = 0 To 100
If 【 】 = 0 Then
x = x + 1
End If
Next i
Print x

End Sub

请问【 】处应该填什么？两个选择： A，x mod 2 =0 B，,i mod 2=0

但是我用vb去调试，发现A的结果是1，B的结果是51，然而我用等差数列求和公式算结果应该是2450！！这是为什么！！

Answer 1

A的话只有i=0会给x加1一次，所以结果是1
B的话，遇到偶数就给x+1，那么0到100一共51个偶数，所以是51 。

考虑到题目是求偶数和，所以 x= x + 1 这里可能是印刷错误，应该是 x= x + i 。

另外，1到100之间的偶数和是2550，不是2450 。

Answer 2

如果是A，x mod 2 =0的话,只有i=0时x才会加1,也就是说只运行了1次

如果是B，,i mod 2=0 的话,i=双数时都会运行1次,共有51个双数,0也算

Private Sub Command1_Click()
Dim x As Single
For i = 0 To 100
If i Mod 2 = 0 Then '这里i是 0,2,4,6,8,10,12,......98,100 时才运行下面的x=x+1(也可以说0至100有51个双数)
x = x + 1
Print x '可以这样看效果吧
End If
Next i

End Sub

Answer 3

当X>=0时，若X<1，则X^2-1<0，此时不能sqr，因为sqr是求算术平方根