用Visual Basic 语言编写一个程序，输出200到300之间的素数，要求一行输出5个素数。谢谢

用Visual Basic 语言编写一个程序，输出200到300之间的素数，要求一行输出5个素数。谢谢

Private Sub Command1_Click()
Dim n As Integer ,i As Integer, j As Integer
For n = 200 To 300
For i = 2 To n-1 ’n-1可以是n/2,也可以是Sqr(n)形式
If n Mod i =0 Then
Exit For
end if
Next i
If i>n-1 Then
j=j+1 ’统计素数个数
Print n;
If j Mod 5 =0 Then Print ’输出5个数换行
End If
Next n
End Sub

Private Function Fun1(ByVal n As Integer) As Boolean
Dim i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then Exit Function
Next i
If i > n - 1 Then Fun1 = True
End Function

Private Sub Command1_Click()
Dim i As Integer
For i = 200 To 300
If Fun1(i) = True Then
x = x + 1
Print i;
If x Mod 5 = 0 Then Print
End If
Next
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息