2014年3月計算機二級考試VF臨考預(yù)測試卷及答案8

　　四、綜合應(yīng)用題

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

　　Private Sub Command1_Click()

　　Dim min As Integer

　　Dim max As Integer

　　Dim i As Integer

　　If Option1.Value=True Then

　　’根據(jù)選中的Option來設(shè)置For循環(huán)上下限

　　min=50

　　max=150

　　Else

　　min=200

　　max=350

　　End If

　　total=0

　　For i=min To max

　　If isPrimeNum(i)=True Then

　　’調(diào)用mode.bas的isPrimeNum函數(shù)判斷素數(shù)

　　total=total+i

　　End If

　　Next i

　　Text1.Text=total

　　End Sub

　　Private Sub Command2 Click()

　　writeData(total)

　　’調(diào)用mode.bas的writeData來進行數(shù)據(jù)保存

　　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

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

　　相關(guān)推薦：

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

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

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