Question

用VB编写一个程序，找出1~1000范围内的所有素数，并将这些素数显示在窗体上

如题，我的代码如下：
Private Sub Command1_Click()
For n = 2 To 1000
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then
Exit For
Next I ——--------调试后这里出现“ next 没有for”为什么呢？
If i > Int(Sqr(n)) Then Print n
Next n
End Sub
请问这个程序又错在哪里，应该怎么样修改？谢谢了

Answer 1

正确如下：
Private Sub Command1_Click()
For n = 2 To 1000
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then
Exit For
End if
Next I
If i > Int(Sqr(n)) Then Print n;
Next n
End Sub
说明：
1、Next i前一行加 End if是为了与前面的if构成完整的if....end if 语句，从而结束if语句并执行下一语句 。
2、另外Print n后在面加分号可以在同一行输出。