VB求素数之和

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 Form_Click() Dim i, j, b As Integer For i = 1 To 100 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next If

上一个：vb 不修改其他行的情况下写入txt指定行
下一个：VB问题，如何用代码让image1为空？