一道关于素数的简单的VB编程题，好心人帮帮我吧

来源：百度知道 编辑：UC知道 时间：2024/05/26 06:37:13
编写名为isprime的function函数过程，判断正整数n是否为素数；若n是素数，函数返回值为True;若n不是素数，函数返回值为False。再调用isprime函数过程，在窗体上输出700到800之间所有素数。

Function isprime(Num As Long) As Boolean
If Num < 2 Then isprime = False: Exit Function

Dim i As Long

For i = 2 To Sqr(Num)
If (Num Mod i) = 0 Then
isprime = False
Exit Function
End If
Next i

isprime = True
End Function

Private Sub Command1_Click()
Dim i As Long
Dim c As Long
c = 1
Cls
For i = 700 To 800
If isprime(i) Then
Print i,
If c = 5 Then
c = 1
Print
Else
c = c + 1
End If
End If
Next i

End Sub