| 第 1 頁(yè)：?jiǎn)芜x題 |
| 第 5 頁(yè)：操作題 |
| 第 6 頁(yè)：參考答案 |
四、綜合應(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ī)沖刺試卷匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |