【实例说明】
    判断一个整数是不是素数。所谓素数，是指除了1和本身之外，不能被其他任何整数整除的数。例如，13是素数，因为不能被2，3，4 … 整除。

【编程思想】
    判断一个数n(n>=3)是否是素数的方法是很简单的：将n作为被除数，将2到(n-1)各个整数轮流作为除数，如果都不能被整除，则n为素数。实际上，n不必被2到(n-1)的整数除，只需2到(n/2)间整数除即可，甚至只需2到Sqr(n)之间的整数除即可。

【设计步骤】
    1.编程函数或过程
    2.源程序  [素材源程序下载]

判断一个整数是否为素数的函数(一)：

Private Function isPrime(a As Integer) As Boolean
        Dim flag As Boolean
        Dim b As Integer
        flag = True
        b = 2
        Do While b = Int(a / 2) And flag
                If Int(a / b) = a / b Then
                        flag = False
                Else
                        b = b + 1
                End If
        Loop
        isPrime = flag
End Function

判断一个整数是否为素数的函数(二)：

Private Function isPrime(a As Integer) As Boolean
        Dim flag As Boolean
        Dim b As Integer
        Dim j
        flag = True
        b = Int(Sqr(a))
        For j = 2 To b
                If Int(a / b) = a / b Then
                        flag = False
                        Exit For
                End If
        Next j
        isPrime = flag
End Function