| 第 1 頁(yè)：選擇題 |
| 第 5 頁(yè)：操作題 |
| 第 8 頁(yè)：參考答案 |
三、簡(jiǎn)單應(yīng)用題
(1)判斷一個(gè)數(shù)是否為素?cái)?shù)的準(zhǔn)則：就是看該數(shù)是否除了1及其本身外別無(wú)其他約數(shù)(即從2到n-1 之間沒有可以將其整除的數(shù))即可。
根據(jù)題意，在窗體上添加兩個(gè)Text控件和一個(gè)Command控件，Text的名稱分別為Text1和Text2、Text屬性均為空，Command的名稱為Command1、Caption屬性為“計(jì)算”。雙擊Command1命令按鈕，編寫如下代碼(本書答案解析部分的代碼中，若無(wú)特殊說(shuō)明，加下劃線的代碼則表明是需要考生補(bǔ)充的代碼)：
Private Sub Command1_Ctick()
Dim total As Long
Dim i As Integer
total=0
For i=1 To Val(Text1.Text)
If isPrimeNum(i)=True Then
’調(diào)用isPrimeNum函數(shù)判斷是否是素?cái)?shù)
total=total+i’如果是，則進(jìn)行求和
End If
Next i
Text2.Text=total 將結(jié)果在Text2中顯示
End Sub
Function isPrimeNum(num As Integer)As Boolean
’判斷輸入的數(shù)是否為素?cái)?shù)
isPrimeNum=True
Dim i As Integer
For i=2 To num-1
If num Mod i=c Then
’如果能被除1及其本身以外的數(shù)整除
isPrimeNum=False’則此數(shù)不是素?cái)?shù)
Exit For
End If
Next i
End Function
單擊 按鈕運(yùn)行程序，并按要求保存。
(2)根據(jù)題意，在窗體上添加一個(gè)Text控件和兩個(gè)Command控件，Text的名稱為Text1、Text屬性為空，Command的名稱分別為Command1和Command2，Caption屬性分別為“輸入”和“輸出”。雙擊Command1命令按鈕，編寫如下代碼：
Dim a(6)As Integer
Private Sub Command1_Click()
Dim i As Integer
Dimj As Integer
Dim k As Integer
Dim trap As Integer
For i=1 To 6
a(i)=Val(InputBoK("請(qǐng)輸入"))
Next i
For i=1 To 6 ’升序序排列
temp=a(i)
For j=1 To i
If a(j)>temp Then’讀取的數(shù)據(jù)比原位置的數(shù)據(jù)大則偏移
For k=i To J…1 Step-1’上下限
a(k)=a(k-1) ’數(shù)據(jù)向后偏移一個(gè)
Next k
a(j)=temp
Exit For
End If
Next j
Next i
End Sub
Prival e Sub Command2 Click()
Dim arg As Integer
Dim str As String
Dimj As Integer
arg=0
Dim i As Integer
str=""
For i=1 To 6
arg=arg+a(i) ’求總和
Next i
arg=arg\6’求平均值.
Fm i=1 To 6
If a(i)>arg Then
’當(dāng)大于平均值時(shí)則寫入字符串
str=str+CStr(a(i))+""
End If
Next i
Text1.Text=str’將結(jié)果顯示在Text1中
End Sub
單擊 按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2014年全國(guó)計(jì)算機(jī)二級(jí)考試VF上機(jī)沖刺試卷匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |