[i] 关于求素数的问题

还是有很多新手对素数的求法迷糊，总希望有个函数直接判断素数，这种想法只会让你离计算机底层机理越来越远。

其实素数就是只能被自身和1整除的数：

 

Function IsPrime(n As Long) As Boolean Dim l As Long For l = 2 To n - 1 If n Mod l = 0 Then Exit Function Next l IsPrime = TrueEnd Function

上面的函数可以判断一个数是不是素数，1也是素数，有人说上面并没有判断1啊

其实 n 为1的时候 ，不执行Exit Function 而执行Exit For（Next）后的语句

 

类似的就是把一个数，如123变成二进制模式，总有人问有没有什么函数直接完成

类似Hex(),也是一样道理，二进制其实就是逢二进一嘛

 

Function CBinary(n As Long) As String Dim s As String, i As Integer Do While n <> 0 i = n Mod 2 '取最后一位 0 或 1 n = n / 2 ' / 得到是整型，/ 得到是 Double s = Chr(48 + a) & s 'Chr(48) 是 ‘0’， 后者放前 Loop 'Debug.Print s Cbinary = sEnd Function

 

希望各位还是多思考，过分依赖于系统对施展和提升你的编程技术是很不利的。

C/C++的就不写了，一样的道理，C/C++转成字符串不用类，代码比较烦