[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 = True

End 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 = s
End Function

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

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