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

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

　　在考生目錄下有一個(gè)工程文件sjt5.vbp。窗體中已經(jīng)給出了所有控件(如圖所示)。請(qǐng)編寫適當(dāng)?shù)氖录�過程完成以下功能：?jiǎn)螕簟白x數(shù)”按鈕，則把考生目錄下的in5.txt文件中的一個(gè)整數(shù)放入Text1;單擊“計(jì)算”按鈕，則計(jì)算出大于該數(shù)的第1個(gè)素?cái)?shù)，并顯示在Text2中;單擊“存盤”按鈕，則把找到的素?cái)?shù)存到考生目錄下的out5.txt文件中。

　　注意：

　　在結(jié)束程序運(yùn)行之前，必須單擊“存盤”按鈕，把結(jié)果存入out5.txt文件，

　　否則無成績(jī)。最后把修改后的文件按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體程序不完整，需添加事件過程。

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

　　Private Sub Command2_Click()

　　a% = CInt(Text1.Text)

　　Do

　　a% = a% + 1

　　Loop Until isprime(a%)

　　Text2.Text = a%

　　End Sub

　　isprime函數(shù)是判斷參數(shù)是否為素?cái)?shù)的，函數(shù)中語句為：

　　Function isprime(a As Integer)

　　Dim flag As Boolean

　　k% = 2

　　flag = True

　　While k% <= Int(a / 2) And flag

　　If a / k% = Int(a / k%) Then

　　flag = False

　　End If

　　k% = k% + 1

　　Wend

　　isprime = flag

　　End Function

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

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

　　相關(guān)推薦：

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

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

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