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)用戶(hù)單擊窗體上的命令按鈕"輸入"時(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ō)明，加下劃線(xiàn)的代碼則表明是需要考生補(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í)題匯總

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前預(yù)測(cè)試卷匯總

　　2015年9月計(jì)算機(jī)等級(jí)考試各科目考前必做試題