用VB求10到100的素数的总和

dim i as integer,j as integer,s as integer
for i=10 to 100
for j=2 to sqr(i)
if i mod j=0 then exit for
next j
if j>sqr(i) then s=s+i
next i
print s

Private Sub form_click()
Dim n As Integer, i As Integer, k As Integer
For n = 10 To 100
k = Sqr(n)
For i = 2 To k
If n Mod i = 0 Then
Exit For
End If
Next i
If i > k Then
Print n
s = s + n
End If
Next n
Print "100以内素数合为："; s

End Sub

Private Sub Command1_Click()
Dim n As Integer, i As Integer, k As Integer
For n = 10 To 100
k = Sqr(n)
For i = 2 To k
If n Mod i = 0 Then
Exit For
End If
Next i
If i > k Then
Print n
s = s + n
End If
Next n
MsgBox "100以内素数合为：" & n

End Sub