VB编程1-100求素数之和

Question

RT,急用在线等！！！
是道笔试题，不是机试

Answer 1

Private Sub Form_Click()
Dim i, j, b As Integer

For i = 1 To 100
For j = 2 To i - 1

If i Mod j = 0 Then Exit For

Next

If j > i - 1 Then b = b + i

Next
Print b

End SuB
最简单的

Answer 2

Private Sub Command1_Click()
Dim flag As Boolean, S As Integer
For i = 2 To 100
flag = True
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then flag = False
Next
If flag Then S = S + i
Next
Print S
End Sub

Answer 3

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, sum As Integer
For i = 1 To 100
If Prime(i) Then
sum = sum + i
End If
Next i
Print sum
End Sub