作业帮 > 综合 > 作业

用vb编写函数过程IsPrim(n),对于一个给定的正整数n,判断是否是素数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/05 10:21:41
用vb编写函数过程IsPrim(n),对于一个给定的正整数n,判断是否是素数
Private Function isPrim(n%) As Boolean '素数判断子过程
Dim d%
If n = 2 Then isPrim = True: Exit Function
For d = 2 To Sqr(n)
If n Mod d = 0 Then Exit For: isPrim = False
If d >= Int(Sqr(n)) Then isPrim = True
Next
End Function