求[100,800]范围内的素数的个数
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/14 02:37:13
求[100,800]范围内的素数的个数
![求[100,800]范围内的素数的个数](/uploads/image/z/6820952-32-2.jpg?t=%E6%B1%82%5B100%2C800%5D%E8%8C%83%E5%9B%B4%E5%86%85%E7%9A%84%E7%B4%A0%E6%95%B0%E7%9A%84%E4%B8%AA%E6%95%B0)
Function Prime(a As Integer) As Boolean
Dim k As Integer, isprime As Boolean
If a < 2 Then
isprime = False
Else
isprime = True
k = 2
Do While k < a
If a Mod k = 0 Then
isprime = False
Exit Do
Else
k = k + 1
End If
Loop
End If
Prime = isprime
End Function
Private Sub Command1_Click()
Dim i As Integer, geshu As Integer
For i = 100 To 800
If Prime(i) Then
geshu = geshu + 1
End If
Next i
Debug.Print geshu '114个
End Su
Dim k As Integer, isprime As Boolean
If a < 2 Then
isprime = False
Else
isprime = True
k = 2
Do While k < a
If a Mod k = 0 Then
isprime = False
Exit Do
Else
k = k + 1
End If
Loop
End If
Prime = isprime
End Function
Private Sub Command1_Click()
Dim i As Integer, geshu As Integer
For i = 100 To 800
If Prime(i) Then
geshu = geshu + 1
End If
Next i
Debug.Print geshu '114个
End Su