找出300-900之间的所有素数,要求每行5个输出

来源：百度知道 编辑：UC知道 时间：2024/05/12 03:52:26
找出300-900之间的所有素数，要求每行5个输出？
用VB应该怎么编啊？

Sub main()
Dim i, j, sum1 As Integer
Debug.Print
For i = 300 To 900
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For
End If
Next
If j = i Then
Debug.Print i; '这有个分号
sum1 = sum1 + 1
If sum1 Mod 5 = 0 Then
Debug.Print
End If
End If

Next
End Sub
新建一个模块,复制到里面并以SUB MAIN作为启动.