四、綜合應用題

　　素數的判斷準則就是看該數是否除了1及其本身以外別無其他約數，若是則該數就是素數，否則就不是素數。本題判斷素數的標準模塊mode.bas已經寫好了，只要將它添加到工程中即可。在“工程”窗口中 單擊右鍵，在彈出的快捷菜單中選擇“添加”一“添加模塊”，然后在彈出對話框的“現存”選項卡中選擇“mode.bas”，單擊“確定”按鈕即添加成功。補充后的代碼如下：

　　Private Sub Command1_Click()

　　Dim min As Integer

　　Dim max As Integer

　　Dim i As Integer

　　If Option1.Value=True Then

　　’根據選中的Option來設置For循環上下限

　　min=50

　　max=150

　　Else

　　min=200

　　max=350

　　End If

　　total=0

　　For i=min To max

　　If isPrimeNum(i)=True Then

　　’調用mode.bas的isPrimeNum函數判斷素數

　　total=total+i

　　End If

　　Next i

　　Text1.Text=total

　　End Sub

　　Private Sub Command2 Click()

　　writeData(total)

　　’調用mode.bas的writeData來進行數據保存

　　End Sub

　　標準模塊mode.bas中的代碼如下：

　　Function isPrimeNum(num As Integer)As Boolean

　　isPrimeNum=True

　　Dim i As Inleger

　　For i=2 To num-1.

　　If num Mod i=0 Then

　　isPrimeNum=False

　　Exit For

　　End If

　　Next i

　　End Function

　　Function writel)ata(total As Long)

　　Open"App.Path&out5.txt"For Output As。#1

　　Write#1，total

　　Close#1

　　End Function

　　單擊 按鈕運行程序，并按要求保存：

　　相關推薦：

　　2014年全國計算機二級考試VF上機沖刺試卷匯總

　　考試吧考后首發2014年3月計算機二級真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題