VB编写程序~~高手来啊

来源：百度知道 编辑：UC知道 时间：2024/07/03 08:15:46
.编写程序，求出100～300间的所有素数
本人菜鸟，各位大侠，可以写的简单明了些不

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

For i = 100 To 300
If isprime(i) Then Print i
Next i

End Sub