如何用VB统计10000以内素数的个数
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/04/30 02:28:45
如何用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 Su
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 Su