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

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

2024-11-21 16:59:42

推荐回答（1个）

回答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后在面加分号可以在同一行输出。