求1到100这之间所有的素数之和.(循环)

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 06:49:40

求1到100这之间所有的素数之和.(循环)
求1到100这之间所有的素数之和.(循环)

求1到100这之间所有的素数之和.(循环)
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim S As Integer
S = 2 (循环无法找出2 因为2是唯一一个能被自己整除的偶数)
For a = 1 To 100 (穷举法的范围:1 -100)
For b = 2 To a - 1 (因子)
If (a Mod b) = 0 Then Exit For
If b = a - 1 Then S = S + a(素数的累加)
Next b
Next a
Print S
End Sub