| 第 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))，但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾，相應(yīng)的dat文件也保存到考生文件夾下，否則沒(méi)有成績(jī)。
本題描述如下：
在名稱(chēng)為Form1的窗體上有一Label控件和兩個(gè)命令按鈕，數(shù)據(jù)文件in5.dat存放了一些成績(jī)。按 "開(kāi)始"按鈕后，從考生文件夾下的in5.dat中讀出數(shù)據(jù)并求出它們的總分和平均分，將結(jié)果寫(xiě)入考生文件夾下的out5.dat文件中;程序運(yùn)行界面如圖46-5所示。執(zhí)行完畢，"開(kāi)始"按鈕變成"完成"，且無(wú)效(變灰)。
圖46-5
參考解析：
命令按鈕的標(biāo)題由Caption屬性來(lái)設(shè)置，單擊命令按鈕觸發(fā)Click事件;執(zhí)行完畢，“開(kāi)始”按鈕變成“完成”，且無(wú)效(變灰) ;Open "in5.dat" For Input As #1以只讀方式打開(kāi)文件，讀出數(shù)據(jù);程序中用到的Input讀文件的格式為：Input #文件號(hào)，變量列表，在將數(shù)據(jù)寫(xiě)入文件時(shí)，要使用Write # 語(yǔ)句而不是使用Print #語(yǔ)句，因?yàn)閃rite #語(yǔ)句能夠?qū)⒏鱾�(gè)數(shù)據(jù)項(xiàng)正確的區(qū)分開(kāi)。
根據(jù)題意，將一個(gè)標(biāo)簽和兩個(gè)命令按鈕添加到窗體中，標(biāo)簽的Caption屬性為“從考生文件夾下的in5.dat中讀出數(shù)據(jù)并求出它們的總分和平均分，將結(jié)果寫(xiě)入考生文件夾下的out5.dat文件中”，命令按鈕的名稱(chēng)分別為Command1和Command2、Caption屬性分別為“開(kāi)始”和”關(guān)閉”。雙擊Command1進(jìn)入代碼編寫(xiě)窗口，利用EOF來(lái)判斷是否讀完數(shù)據(jù)，利用計(jì)數(shù)記錄讀取數(shù)據(jù)的個(gè)數(shù)，補(bǔ)充后的具體代碼如下：
Private Sub Command1_Click() '開(kāi)始命令
Dim total As Long
Dim temp As Integer
Dim str As String
Dim num As Integer
total = 0
num = 0
Open App.Path&"\in5.dat" For Input As #1 '打開(kāi)文件進(jìn)行讀取
While EOF(1) = False '如果沒(méi)讀到文件尾繼續(xù)讀取
Input #1, str
temp = Val(str) '將讀到的字符串轉(zhuǎn)換成數(shù)值
total = total + temp '進(jìn)行累加
num = num + 1 '計(jì)數(shù)加1
Wend
Close #1
Open App.Path&"\out5.dat" For Output As #2 '打開(kāi)文件，進(jìn)行寫(xiě)入
Writ e #2, "總和是"
Write #2, total '寫(xiě)入總和
Write #2, "平均值是"
Write #2, total \ num '寫(xiě)入平均值
Command1.Enabled = False '計(jì)算完成后Command1不可用
Command1.Caption = "完成" 'Command1的名稱(chēng)變?yōu)橥瓿?/P>
End Sub
Private Sub Command2_Click() '關(guān)閉命令
Unload Me
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2015年9月計(jì)算機(jī)等級(jí)考試考場(chǎng)拿高分技巧
2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
