注意：下面出現的“考生文件夾”均為%USER%

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

　　要求：

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

　　注意：

　　程序調試通過后，在“給定的素數”對應的文本框中輸入12379，并執行“查找”命令，將找到滿足條件的三個素數顯示在標簽中，否則沒有成績。不得修改程序的其他部分和控件屬性。 最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應的窗體文件名為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

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

　　'考生編寫程序結束

　　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

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

　　相關推薦：

　　2012年計算機等考四級數據庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總