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

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%在考生目錄下有一個(gè)工程文件 sjt5.vbp，其窗體上有一個(gè)文本框，名稱為Text1;還有兩個(gè)命令按鈕，名稱分別為C1、C2，標(biāo)題分別為“計(jì)算”、“存盤”，如圖所示。并有一個(gè)函數(shù)過程isprime(a)可以在程序中直接調(diào)用，其功能是判斷參數(shù)a是否為素?cái)?shù)，如果是素?cái)?shù)，則返回True，否則返回False。

　　請編寫適當(dāng)?shù)氖录�過程， 使得在運(yùn)行時(shí)，單擊“計(jì)算”按鈕，則找出大于15000的第1個(gè)素?cái)?shù)，并顯示在 Text1中;單擊“存盤”按鈕，則把Text1中的計(jì)算結(jié)果存入考生文件夾下的out5.txt文件中。

　　注意：

　　考生不得修改isprime函數(shù)過程和控件的屬性，必須把計(jì)算結(jié)果通過“存盤”按鈕存入out5.txt文件中，否則無成績。

　　解題思路：

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

　　由于所提供的窗體程序不完整，需添加二個(gè)按鈕的事件過程。

　　單擊“計(jì)算”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub C1_Click()

　　a% = 15000

　　Do

　　a% = a% + 1

　　Loop Until isprime(a%)

　　Text1.Text = a%

　　End Sub

　　單擊“存盤”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub C2_Click()

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

　　Print #1, Text1.Text

　　Close #1

　　End Sub

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

　　請把這些文件復(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)名時(shí)間及入口匯總