<b id="glvx9"></b> 
| 第 1 頁(yè)：基本操作題 |
| 第 3 頁(yè)：簡(jiǎn)單應(yīng)用題 |
| 第 5 頁(yè)：綜合應(yīng)用題 |
6在考生文件夾中有工程文件sj5.vbp及其窗體文件sj5.frm，該程序是不完整的，請(qǐng)?jiān)谟??"的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。
本題描述如下：
在名稱為Form1的窗體上有一個(gè)文本框，名稱為Text1、MultiLine屬性為True、ScrollBars屬性為2;兩個(gè)命令按鈕，名稱分別為Command1和Command2、標(biāo)題分別為"讀取"和"排序保存"，如圖52-5所示。程序運(yùn)行后，如果單擊"讀取"按鈕，則讀入in.txt文件中的50個(gè)整數(shù)，放入一個(gè)數(shù)組中(數(shù)組下界為1);如果單擊"排序保存"按鈕，則對(duì)這50個(gè)整數(shù)按從小到大的順序進(jìn)行排序，把排序后的全部數(shù)據(jù)在文本框 Text1中顯示出來(lái)，然后存入考生文件夾的out.txt文件中。(考生文件夾下的標(biāo)準(zhǔn)模塊mode5.bas中的writedata過(guò)程可以把指定個(gè)數(shù)的數(shù)組元素存入out.txt文件。)
圖52-5
注意：文件必須存放在考生文件夾下，窗體文件名為sj5.frm，工程文件名為sj5.vbp，排序結(jié)果存入out.txt文件中,否則沒(méi)有成績(jī)。
參考解析：
根據(jù)題意，將一個(gè)文本框控件，兩個(gè)單選按鈕控件和一個(gè)命令按鈕添加到窗體中，文本框的名稱為Text1，單選按鈕的名稱分別為Option1和Option2，Caption分別為“求100到250之間能被5整除的數(shù)的個(gè)數(shù)”和“求300到400之間能被6整除的數(shù)的個(gè)數(shù)”，命令按鈕的名稱為Command1，Caption屬性為“計(jì)算顯示”，設(shè)置完成后，雙擊Command1進(jìn)入代碼窗口，補(bǔ)充后的具體代碼如下：
Private Sub Command1_Click()
Dim min As Integer′下限
Dim max As Integer′上限
Dim i As Integer′循環(huán)計(jì)數(shù)
Dim num As Integer′個(gè)數(shù)
Dim tmp As Integer′除數(shù)
If Option1.Value=True Then′選中Option1時(shí)
min=100
max=250
tmp=5
Else′選中Option2時(shí)
min=300
max=400
tmp=3
End If
num=0
For i=min To max′利用循環(huán)來(lái)逐個(gè)判斷
If i Mod tmp=0 Then
num=num+1′如果能被除數(shù)整除，則個(gè)數(shù)加1
End If
Next i
Text1.Text=num′在Text1文本框中顯示出來(lái)
Open "App.Path&\out5.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
單擊按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總
2015年計(jì)算機(jī)二級(jí)考試《VB》考前預(yù)測(cè)試卷匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
