三、綜合應用題

　　【審題分析】本題源程序已提供 Writedate 自定義過程，需編寫"讀數(shù)"、"計算"和"保存"命令的單擊事件過程。程序設計思路：在"讀數(shù)"按鈕的單擊事件過程中，用 Open 語句以 Input 方式打開數(shù)據(jù)文件 dr1.dat，通過 For 循環(huán)語句(初值為 1，終值為 100)將數(shù)據(jù)文件中的數(shù)據(jù)用 Input 語句依次讀出并賦值給數(shù)組元素 arr(i)，同時顯示在文本框中，為使數(shù)據(jù)間保持一定間隔，每個數(shù)據(jù)后用 Space(5)加入 5 個空格;在"計算"按鈕的 Click 事件過程中，利用 For 循環(huán)語句(循環(huán)變 i 的初值為 1，終值為 100)依次將數(shù)組 arr 中小于或等于 300 的元素的值顯示在文本框中(條件表達式為：arr(i)<=300)，并將其值累加到變Sum，循環(huán)結束后將結果顯示在窗體上。在"保存"按鈕的 Click 事件過程中，通過調(diào)用WriteData 過程將文本框中的值寫入數(shù)據(jù)文件 dw1.dat。

　　【操作步驟】

　　步驟 1：新建一個"標準 EXE"工程，按下表在窗體中畫出控件并設置其相關屬性。

　　步驟 2：選擇【工程】?【添加模塊】命令，打開添加模塊對話框，將考生文件夾下的model.bas 添加到當前工程中。

　　步驟 3：在代碼編輯窗口編寫以下事件過程。

　　參考代碼：

　　Dim arr(1 To 100) As Integer

　　Private Sub Cmd1_Click()

　　Txt1.Text = ""

　　Open App.Path & "\dr1.dat" For Input As #1

　　′ó?ò??ì3?????úμè????ê?ר?? http://club.topsage.com/forum-49-1.html ê??ˉ??àí

　　For i = 1 To 100

　　Input #1, arr(i)

　　Txt1.Text = Txt1.Text & arr(i) & Space(5)

　　Next

　　Close #1

　　End Sub

　　Private Sub Cmd2_Click()

　　Dim sum As Integer

　　For i = 1 To 100

　　If arr(i) <= 300 Then

　　sum = sum + arr(i)

　　End If

　　Next

　　Txt1.Text = sum

　　End Sub

　　Private Sub Cmd3_Click()

　　writedata "dw1.dat", Txt1.Text

　　End Sub

　　步驟 4：按要求將文件保存至考生文件夾中。

　　編輯推薦：

　　2014年上半年計算機等級考試報名時間及入口專題

　　各地2014年計算機等級考試費用匯總

　　2014年計算機等級考試時間