Question

VB这题哪里出错了？

问题在图片里

Private Sub Command1_Click()

For i = 100 To 1000
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
Else
s = s + i
Exit For
End If
Next j
Next i

Print s
End Sub

Answer 1

你的程序，如果 i 是奇数，就在内循环的第一轮判断中被加入到 s 中，所以就出错了。

建议修改如下图：

追问

i=j？？？？那句能举例解释下吗谢谢

追答

如果在在第二层的For循环中没有Exit For，而是正常退出，那么 j 的值一定是比i - 1 大1，即j=i，说明i是一个素数

追问

你说的是对的，我用图片这个方法证明 j 是 =i的

但有点不理解

比如i=101，那j的值i - 1 最大不是只到100吗？为什么会大1 

追答

For j=1 To 20 - 1
Print j;
Next j
当执行到j=19时，满足循环条件，输出19以后，执行Next j，j的值就再增加一个步长，变为20，这时就不再满足循环条件而退出循环，所以，这个循环退出后，j的值就是20了。

Answer 2

Private Sub Command1_Click()
s=0
For i = 100 To 1000
ok=1
For j = 2 To i - 1
If i Mod j = 0 Then
ok=0
Exit For
End If
Next j
if ok=1 then s=s+i
Next i

Print s
End Sub

追问

我老师给的也是和你一样的，我想知道一下我那样写是哪里出错了吗

追答

你的代码根本无法判断i是否质数，j的循环在第一次执行j=2之后立即跳出了，只判定了i是否可以整除2

Answer 3

思路一团糟，

没有所谓的Exit For,Next就是For循环体单循环结束标志,If到Else没有实际事件，是个空的。