Question

VB题求（3－500）内所有素数的和

不要用定义，用for循环，最好是有简单的

Answer 1

Private Sub Command1_Click()
For i = 3 To 500
For j = 2 To i - 1
If i Mod j = 0 Then

GoTo l1
End If

Next j
Print i
l1:
Next i
End Sub

Answer 2

Private Sub Commandl_Click()
Dim Flag As Boolean
Sum=0
For x= 3 To 500
Flag=True
For i =2 To x-1
If x Mod i=0 Then
Flag=False
Exit For
End If
Next i
If Flag=true Then
Sum=Sum+x
End If
Next x
Print sum
End Sub