| 第 1 頁(yè)：基本操作題 |
| 第 3 頁(yè)：簡(jiǎn)單應(yīng)用題 |
| 第 5 頁(yè)：綜合應(yīng)用題 |
4(1)在考生文件夾下有一個(gè)工程文件sj3.vbp，相應(yīng)的窗體文件為sj3.frm。其功能是在Text1文本框中輸入一個(gè)數(shù)N，單擊命令按鈕計(jì)算從0到N的所有素?cái)?shù)的和，并在Text2中顯示出來(lái)。運(yùn)行程序如圖1-3所示。
圖1-3
要求：去掉程序中的注釋符"'"，把程序中的"?"改為正確的內(nèi)容， 使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤(pán)。
(2)在考生文件夾下有工程文件sj4.vbp及窗體文件sj4.frm，該程序是不完整的，請(qǐng)?jiān)谟??"號(hào)的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))，但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾。
本題描述如下：
本程序的功能為當(dāng)用戶單擊窗體上的命令按鈕"輸入"時(shí)，可以輸入6個(gè)數(shù)值，隨后程序?qū)@6個(gè)數(shù)值進(jìn)行升序排序，單擊按鈕"輸出"則把大于平均值的數(shù)顯示出來(lái)，程序運(yùn)行時(shí)的窗體如圖1-4所示。
圖1-4
參考解析：
(1)判斷一個(gè)數(shù)是否為素?cái)?shù)的準(zhǔn)則：就是看該數(shù)是否除了1及其本身外別無(wú)其他約數(shù)(即從2到n-1之間沒(méi)有可以將其整除的數(shù)) 即可。
根據(jù)題意，在窗體上添加兩個(gè)Text控件和一個(gè)Command控件，Text的名稱(chēng)分別為T(mén)ext1和Text2、Text屬性均為空，Command的名稱(chēng)為Command1、Caption屬性為"計(jì)算"。雙擊Command1命令按鈕，編寫(xiě)如下代碼(本書(shū)答案解析部分的代碼中，若無(wú)特殊說(shuō)明，加下劃線的代碼則表明是需要考生補(bǔ)充的代碼)：
Private Sub Command1_Click()
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 = 0 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的名稱(chēng)為T(mén)ext1、Text屬性為空，Command的名稱(chēng)分別為Command1和Command2，Caption屬性分別為"輸入"和"輸出"。雙擊Command1命令按鈕，編寫(xiě)如下代碼：
Dim a(6) As Integer
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim tmp As Integer
For i = 1 To 6
a(i) = Val(InputBox("請(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
Private Sub Command2_Click()
Dim arg As Integer
Dim str As String
Dim j As Integer
arg = 0
Dim i As Integer
str = ""
For i = 1 To 6
arg = arg + a(i) ' 求總和
Next i
arg = arg \ 6 '求平均值
For i = 1 To 6
If a(i) > arg Then '當(dāng)大于平均值時(shí)則寫(xiě)入字符串
str = str + CStr(a(i)) + " "
End If
Next i
Text1.Text = str '將結(jié)果顯示在Text1中
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2015年9月計(jì)算機(jī)等級(jí)考試考場(chǎng)拿高分技巧
2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
