四平吧 贴吧最新消息:如何判断一个数是否为素数的算法(VB) 谢谢啊!!!!!
来源:百度文库 编辑:高考问答 时间:2024/04/29 00:45:12
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 a As Long
For a = 10 To 100 '小一点 从10到 100吧!
If ss((a))Then
Print a
End If
Next
End Sub