1000以内素数之和是多少

网友回答

Private Sub mand1_click()
Dim i,j,f,c,sum
i = 2While i f = True
j = 2Do While j If i Mod j = 0 Then f = False:Exit Do
j = j + 1LoopIf f Then
debug.Print i & vbTab;
c = c + 1sum=sum+i
If c Mod 5 = 0 Then debug.Print
End Ifi = i + 1Wendprint vbcrlf & 1000之内所有素数之和= & sum
End Sub