四、綜合應(yīng)用題
素?cái)?shù)的判斷準(zhǔn)則就是看該數(shù)是否除了1及其本身以外別無其他約數(shù)，若是則該數(shù)就是素?cái)?shù)，否則就不是素?cái)?shù)。本題判斷素?cái)?shù)的標(biāo)準(zhǔn)模塊mode.bas已經(jīng)寫好了，只要將它添加到工程中即可。在“工程”窗口中 單擊右鍵，在彈出的快捷菜單中選擇“添加”一“添加模塊”，然后在彈出對(duì)話框的“現(xiàn)存”選項(xiàng)卡中選擇“mode.bas”，單擊“確定”按鈕即添加成功。補(bǔ)充后的代碼如下：
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ù)判斷素?cái)?shù)
total=total+i
End If
Next i
Text1.Text=total
End Sub
Private Sub Command2 Click()
writeData(total)
’調(diào)用mode.bas的writeData來進(jìn)行數(shù)據(jù)保存
End Sub
標(biāo)準(zhǔn)模塊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
單擊 按鈕運(yùn)行程序，并按要求保存：
相關(guān)推薦：
2014年全國(guó)計(jì)算機(jī)二級(jí)考試VF上機(jī)沖刺試卷匯總
考試吧考后首發(fā)2014年3月計(jì)算機(jī)二級(jí)真題及答案通知
考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題
