| 第 1 頁(yè)：基本操作 |
| 第 2 頁(yè)：簡(jiǎn)單應(yīng)用 |
| 第 3 頁(yè)：綜合應(yīng)用 |
注意：下面出現(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。
請(qǐng)編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊“計(jì)算”按鈕，則找出小于18000的最大的素?cái)?shù)，并顯示在Text1中;單擊“存盤”按鈕，則把Text1中的計(jì)算結(jié)果存入考生目錄下的out5.txt文件中。
注意：
考生不得修改isprime函數(shù)過程和控件的屬性，必須把計(jì)算結(jié)果通過“存盤”按鈕存入out5.txt文件中，否則無成績(jī)。
解題思路：
啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。
由于所提供的窗體程序不完整，需添加事件過程。
單擊“計(jì)算”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語(yǔ)句：
Private Sub C1_Click()
a% = 18000
Do
a% = a% - 1
Loop Until isprime(a%)
Text1.Text = a%
End Sub
單擊“存盤”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語(yǔ)句：
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、out5.txt
請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運(yùn)行。
相關(guān)推薦：
2012年計(jì)算機(jī)等考四級(jí)數(shù)據(jù)庫(kù)工程師備考筆記匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
