2012年計(jì)算機(jī)二級VB上機(jī)試題及解題思路第二十一套

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生文件夾下有一個工程文件sjt5.vbp。運(yùn)行程序時，在文本框中輸入一個素?cái)?shù)，然后單擊 “查找” 命令按鈕，找出小于給定素?cái)?shù)的三個最大的素?cái)?shù)，并顯示在標(biāo)簽控件數(shù)組Label1中，如圖所示。

　　要求：

　　工程文件中已給出部分程序，其中的IsPrime過程用來判斷一個數(shù)是否為素?cái)?shù)。請編寫“查找”命令按鈕的事件過程中的部分程序代碼。

　　注意：

　　程序調(diào)試通過后，在“給定的素?cái)?shù)”對應(yīng)的文本框中輸入12379，并執(zhí)行“查找”命令，將找到滿足條件的三個素?cái)?shù)顯示在標(biāo)簽中，否則沒有成績。不得修改程序的其他部分和控件屬性。 最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，需在"查找"命令按鈕的Click事件過程中加入語句：

　　Private Sub Command1_Click()

　　'考生編寫程序開始

　　'======================================

　　Dim i As Integer

　　Dim n As Integer

　　Dim counter As Integer

　　Dim arr(3) As Integer

　　n = Val(Text1.Text)

　　counter = 0

　　For i = n - 2 To 3 Step -2

　　If IsPrime(i) Then

　　arr(counter) = i

　　counter = counter + 1

　　If counter = 3 Then

　　Exit For

　　End If

　　End If

　　Next

　　For i = 0 To 2

　　Label1(i).Caption = arr(i)

　　Next

　　'=========================================

　　'考生編寫程序結(jié)束

　　Open App.Path & "\out5.dat" For Output As #1

　　Print #1, Text1.Text, Label1(0).Caption, Label1(1).Caption, Label1(2).Caption

　　Close #1

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運(yùn)行。

　　相關(guān)推薦：

　　2012年計(jì)算機(jī)等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計(jì)算機(jī)等級考試二級VB重點(diǎn)知識匯總

　　2012年下半年計(jì)算機(jī)等級考試報(bào)名時間及入口匯總