如何用VB统计10000以内素数的个数

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 16:05:38
如何用VB统计10000以内素数的个数

如何用VB统计10000以内素数的个数
如何用VB统计10000以内素数的个数

如何用VB统计10000以内素数的个数
Private Sub Form_load()
Dim i As Integer
Dim j As Integer
Dim x As Integer
For i = 2 To 10000
f = 0 ' f 用来标识是否为素数
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then
f = 1
Exit For
End If
Next j
If f = 0 Then x = x + 1
Next i
MsgBox x
End Sub