1000以内素数之和是多少

Private Sub command1_click()
Dim i,j,f,c,sum
i = 2
While i < 1000
f = True
j = 2
Do While j < i
If i Mod j = 0 Then f = False:Exit Do
j = j + 1
Loop
If f Then
debug.Print i & vbTab;
c = c + 1
sum=sum+i
If c Mod 5 = 0 Then debug.Print
End If
i = i + 1
Wend
print vbcrlf & "1000之内所有素数之和=" & sum
End Su