自定义函数判断素数出错

buciyuan

Function pdzs(num) ’判断素数
  Dim i As Long

  For i = 2 To Sqr(num)
     If num Mod i = 0 Then
        pdzs = 0
        Exit For
     End If
  Next

If i < num And num = 1 Then
    pdzs = 0
Else
    pdzs = 1
End If

End Function

自定义函数判断素数出错，请教各位大神指点一二，谢谢

buciyuan

自定义函数判断素数， 如果是素数=1，否则=0

^星^

1. Function pdzs(num) '判断素数
   
2.     Dim i As Long
   
3.     For i = 2 To num - 1
   
4.         If num Mod i = 0 Then
   
5.             pdzs = 0
   
6.             Exit Function
   
7.         End If
   
8.     Next
   
9.     pdzs = 1
   
10. End Function

复制代码

Enocheasty

你下面这个IF的逻辑真是绝了，你的i =2起步，又AND Num=1，那么 2<1 永远为假，你的返回永远是1

buciyuan

Enocheasty 发表于 2024-3-5 21:20
你下面这个IF的逻辑真是绝了，你的i =2起步，又AND Num=1，那么 2

谢谢指点！

titi012

参与一下，换个不同方式的

1. Option Explicit
   
2. Dim Boo As Byte, x As Long
   
3. Function Pd(xNum As Long) As Byte
   
4.     x = Round(xNum / 2, 0)
   
5.     GZ xNum, x
   
6.     Pd = Boo
   
7. End Function
   
8. Sub GZ(N As Long, R As Long)
   
9.     If R = 1 Then Boo = 1: Exit Sub
   
10.     If N Mod R = 0 Then Boo = 0: Exit Sub Else GZ N, R - 1
    
11. End Sub

复制代码