论以貌取人的下场 剧透:如何判断一个数是否为素数的算法(VB) 谢谢啊!!!!!
来源:百度文库 编辑:高校问答 时间:2024/05/07 11:33:40
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