計(jì)算機(jī)等級(jí)考試二級(jí)VB常用算法(3)：素?cái)?shù)

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

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

下列程序的功能是：查找四位正整數(shù)中的超級(jí)素?cái)?shù)。超級(jí)素?cái)?shù)的定義為：當(dāng)一個(gè)素?cái)?shù)從低位到高位依次去掉一位數(shù)后剩下的數(shù)仍然是素?cái)?shù)，則此數(shù)為超級(jí)素?cái)?shù)。如數(shù)2333、233、23、2均為素?cái)?shù)，所以2333為超級(jí)素?cái)?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春上機(jī)試卷03）

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

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問(wèn)：考試吧計(jì)算機(jī)等級(jí)考試欄目