作业帮 > 数学 > 作业

100-1000之间的质数的个数及其和(75067 143个)

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:数学作业 时间:2024/07/05 20:01:51
100-1000之间的质数的个数及其和(75067 143个)
Private Sub Command1_Click()
Dim x As Integer,flag As Boolean,n As Integer,s As Long,k as integer
For x = 100 To 1000
flag = True
n = 2
While n < x
If x Mod n = 0 Then
flag = False
End If
n = n + 1
Wend
If flag Then
k = k + 1
s = s + x
End If
Next
Print "100-1000之间的素数之和为"; s
Print k
End Sub
100-1000之间的质数的个数及其和(75067 143个)
恩,对的