VB程序题（高手速度来）

求（3，500）内的所有素数和 并输出结果

Function sumSushu(ByVal a As Integer, ByVal b As Integer) As Long
Dim i As Integer
sumSushu = 0
For i = a To b
If sushu(i) = 1 Then
sumSushu = sumSushu + i
End If
Next
End Function
Function sushu(ByVal a As Integer) As Integer
Dim b As Integer
sushu = 0
For b = 2 To Sqr(a)
If a Mod b = 0 Then
Exit Function
End If

Next
sushu = 1
End Function

Private Sub Form_Load()
MsgBox sumSushu(1, 5)
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息