vb编程题求100至200内的素数之和

Question

求100至200内的素数之和要求使用Option Explicit

Answer 1

做这个程序时，首先初始化一个美加器，初值为零，然后通过一个判断是否素数的函数，在做一个循环，从101到199步长为二进行循环，如果找到了一个素数，就把他累加起来，循环结束的时候，输出这个累加器的值就可以了

Answer 2

Option Explicit
Dim i, sumA As Integer
Function calc(ByVal num As Integer) As Boolean
Dim bFlag As Boolean
Dim countA, i As Integer
countA = 0
For i = 1 To num
If num Mod i = 0 Then
countA = countA + 1
End If
Next i
If countA <= 2 Then
bFlag = True
Else
bFlag = False
End If
calc = bFlag
End Function

Private Sub Command1_Click()
sumA = 0
For i = 100 To 200
If calc(i) = True Then
sumA = sumA + i
End If
Next i
MsgBox "100到200之间的素数和是：" & sumA
End Sub本回答被网友采纳