三、綜合應(yīng)用題
【審題分析】在"讀數(shù)"按鈕的單擊事件過程中,用 Open 語句以 Input 方式打開數(shù)據(jù)文件 dr1.dat,通過 For 循環(huán)語句(初值為 1,終值為 50)將數(shù)據(jù)文件中的數(shù)據(jù)用 Input語句依次讀出并賦值給數(shù)組元素 arr(i),同時(shí)顯示在文本框中。在"排序"按鈕的單擊事件過程中,利用"冒泡法"對(duì)數(shù)組中的元素按從大到小進(jìn)行排序。在"保存"按鈕的單擊事件過程中,使用 For 循環(huán)語句將數(shù)組中各元素按順序?qū)⑵渲碉@示在文本框中,并通過調(diào)用標(biāo)準(zhǔn)模塊中的 Writedata 過程(以數(shù)組名和數(shù)組上界為參數(shù)),將文本框中的內(nèi)容寫入數(shù)據(jù)文件 dw2.dat。為使數(shù)據(jù)間保持一定間隔,每個(gè)數(shù)據(jù)后用 Space(5)加入 5 個(gè)空格。
【操作步驟】
步驟 1:新建一個(gè)"標(biāo)準(zhǔn) EXE"工程,在窗體 Form1 上加入 1 個(gè)文本框和 3 個(gè)命令按鈕,在屬性設(shè)置窗口分別設(shè)置它們的屬性,屬性及其值見表 55-4。
表 55-4
步驟 2:選擇【工程】?【添加模塊】命令,打開添加模塊對(duì)話框,將考生文件夾下的 mode1.bas 添加到當(dāng)前工程中。
步驟 3:打開代碼編輯窗口,編寫以下代碼:
參考代碼:
Dim arr(1 To 50) As Integer
Private Sub Cmd1_Click()
Txt1.Text = ""
Open App.Path & "\dr1.dat" For Input As #1
For i = 1 To 50
Input #1, arr(i)
Txt1.Text = Txt1.Text & arr(i) & Space(5)
Next
Close #1
End Sub
Private Sub Cmd2_Click()
For i = 1 To 50
For j = i + 1 To 50
If arr(i) < arr(j) Then
t = arr(i)
arr(i) = arr(j)
arr(j) = t
End If
Next
Next
End Sub
Private Sub Cmd3_Click()
Txt1.Text = ""
For i = 1 To 50
Txt1.Text = Txt1.Text & arr(i) & Space(5)
Next
Writedata arr, 50
End Sub
步驟 4:按要求將文件保存至考生文件夾中。
編輯推薦:
2014年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口專題
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |