| 第 1 頁(yè)：?jiǎn)芜x題 |
| 第 5 頁(yè)：操作題 |
| 第 7 頁(yè)：參考答案 |
四、綜合應(yīng)用題
文本框顯示的內(nèi)容通過(guò)Text屬性設(shè)置;按鈕的標(biāo)題通過(guò)Caption屬性設(shè)置，單擊命令按鈕觸發(fā)Click事
件。本題涉及文件的操作，讀入順序文件以順序的方式打開(kāi)，用”Input#”語(yǔ)句讀取數(shù)據(jù)。另外需要注意的是，對(duì)文件操作結(jié)束后，一定要關(guān)閉文件。
�、俳⒔缑娌⒃O(shè)置控件屬性。程序中用到的控件及其屬性如下表所示：
�、诖蜷_(kāi)工埕資源管理器，在其空白處右鍵添加模塊pr09.bas(此文件已在考生文件夾里)，模塊代碼
如下：
Option Explicit
Sub putdata(ByVal a As Long)
Dim sFile As String
sFile="\result.txt"
()pen App.Path&sFile For Output As#1
Print#1，a;
Close#1
End Sub
�、鄞蜷_(kāi)工程資源管理器，右擊窗體，選擇查看代碼項(xiàng)，在彈出的代碼窗口輸入代碼如下：
Dim i(1 To 100)As Integer
Private Sub Cmd1 Click()
Dim j As Integer
j=0
Open App.Path&"\in.txt"For Input As#1
For j=1 To 100
Input#1，i(j)
Next j
Close#1
For j=1 To 100
Text1.Text=Text1.Text&i(j)&Space(5)
Next j
End Sub
Private Sub Cmd2 Click()
Dim sum As Long
Dim j.As Integer
sum=0
Text1.Text=""
For j=1 To 100
If i(j)>=400 And i(j)<800 Then
sum=sum+i(i)
End If
Next j
Text1.Text=Text 1.Text&sum&Spaca(5)
putdata sum
End Sub
’標(biāo)準(zhǔn)模塊代碼
Option Explicit
Sub putdata(ByVal a As Long)
Dim sFile As String
sFile="\result.txt"
Open App.Path&sFiie For Output As#1
Print#1，a;
Close#1
End Sub
相關(guān)推薦：
2014年計(jì)算機(jī)二級(jí)C++考試精選試題及答案匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
