vb编程，求10000以内的素数之和

Function ss(Tmp As Long) As Boolean '素数判断
ss = True
For i = 2 To Tmp / 2
If Tmp Mod i = 0 Then
ss = False
Exit Function
End If
Next
End Function

Private Sub Command1_Click()
Dim i As Long
Dim s As Double
For i = 1 To 10000
If ss(i) = True Then
s = s + i
End If
Next
Print s
End Sub

Private Sub Command1_Click()
Dim Flags As Boolean, i As Long, j As Long, k As Long
For i = 2 To 10000
Flags = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then
Flags = False
Exit For
End If
Next
If Flags = True Then

k = k + i
End If
Next
Print K
End Sub