用VB编写程序,判断100到200之间的素数,并求和

Question

要用到Function(过程)

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Print "100到200之间的素数："
For i = 100 To 200
If Prime(i) Then
j = j + 1
Print CStr(i) & " ";
If j Mod 5 = 0 Then Print
sum = sum + i
End If
Next i
Print
Print "总和："
Print sum
End Sub

'判断是否为素数
Private Function Prime(n As Integer) As Boolean
If n <= 1 Then
Exit Function
ElseIf n = 2 Then
Prime = True: Exit Function
ElseIf n Mod 2 = 0 Then
Exit Function
End If
Dim i As Integer
For i = 3 To Sqr(n) Step 2
If n Mod i = 0 Then Exit Function
Next i
Prime = True
End Function