鸭子tv国产极品在线观看_成人69视频在线播放_91精品免费在线观看_亚洲AT永久偷窥无码精品_国产精品自产拍在线观看涩浪潮久

VB常用算法（三）素數(shù)

1、算法說明

素數(shù)（質(zhì)數(shù)）：就是一個大于等于2的整數(shù)，并且只能被1和本身整除，而不能被其他整數(shù)整除的數(shù)。

判別某數(shù)m是否是素數(shù)的經(jīng)典算法是：

對于m，從I＝2，3，4，……，m－1依次判別能否被I整除，只要有一個能整除，m就不是素數(shù)，否則m是素數(shù)。

Private Function sushu(ByVal n As Long) As Boolean

    Dim i As Long

    For i = 2 To n - 1

    If (n Mod i) = 0 Then Exit For

Next I

If I=n then sushu=True

End Function

很顯然，實際上，我們可以改進上面

For i = 2 To n – 1

為：

For i = 2 To int（sqr（m））

這樣可以很好的提高效率。

以上判斷是否為素數(shù)的代碼務(wù)必識記！

應(yīng)用舉例

求100－200之內(nèi)素數(shù)。

Private Sub Command1_Click()

    Dim j As Integer

    For j = 100 To 200

        If sushu(j) = True Then

        Print j

        End If

    Next j

End Sub

解題技巧

識記判斷素數(shù)的算法過程，根據(jù)題意，靈活調(diào)用！

實例說明

編程題（2002年春上機試卷04）

         找出10000以內(nèi)所有可以表示為兩個平方數(shù)和的素數(shù)。

思路：

首先找10000以內(nèi)的所有素數(shù)，對于每個素數(shù)判斷其是否可以表示為兩個平方數(shù)之和（即對于任意小于該素數(shù)shu的數(shù)I，如果I和shu－I均為平方數(shù)，則說明其可以表示為兩個平方數(shù)之和。）

判斷數(shù)I是否為平方數(shù)的方法：sqr（i）=int(sqr(i))

Private Sub Command1_Click()

    Dim j As Integer

    Dim m As Long, n As Long

    For j = 2 To 10000

        If sushu(j) = True Then

            If pf(j, m, n) = True Then

                List1.AddItem j & "=" & m & "+" & n

            End If

        End If

    Next j

End Sub

Private Function pf(ByVal shu As Long, m As Long, n As Long) As Boolean

    Dim i As Long

    For i = 1 To shu - 1

        If (Sqr(i) = Int(Sqr(i))) And (Sqr(shu - i) = Int(Sqr(shu - i))) Then

            pf = True

            m = i

            n = shu - i

            Exit Function

        End If

    Next

End Function

2、實戰(zhàn)練習(xí)

1)        補充代碼（2002春二（7））

下列程序的功能是：查找四位正整數(shù)中的超級素數(shù)。超級素數(shù)的定義為：當(dāng)一個素數(shù)從低位到高位依次去掉一位數(shù)后剩下的數(shù)仍然是素數(shù)，則此數(shù)為超級素數(shù)。如數(shù)2333、233、23、2均為素數(shù)，所以2333為超級素數(shù)。

                  Option Explicit

                  Private Sub Command1_Click()

                           Dim I As Integer, flg As Boolean

                     For I = 1001 To 9999 Step 2

                        Call sup_prime(I, flg)

                       If flg Then

                        Debug.Print I

                      End If

                   Next I

                 End Sub

                  Private Sub sup_prime(  （1）  , F As Boolean)

                             Dim p As Integer

                        F = True

                                    Do While N > 0

                                   If prime(N) Then

                                                       （2）

                               Else

                                                 （3）

                                 Exit Sub

                           End If

                      Loop

                  End Sub

                  Public Function prime(p As Integer) As Boolean

                                 Dim k As Integer

                                 If p = 1 Then

                                           Exit Function

                                   Else

                                             For k = 2 To Sqr(p)

                                          If p Mod k = 0 Then Exit Function

                                          Next k

                                              （4）

                          End If

                  End Function

2)        編程題（2004春上機試卷03）

         隨機生成15個兩位正整數(shù)，從中找出所有的素數(shù)，并記下它是第幾個數(shù)，再找出其中最大的素數(shù)，并給出它的位置。