三、綜合應用題

　　5在名稱為Form1的窗體上畫一個文本框，名稱為Text1，MultiLine屬性為True,ScroUBars屬性為2;兩個命令按鈕，名稱分別為Cmdl和Omd2，標題分別為"讀入數據"和"計算保存"，如圖2-6所示。要求程序運行后，如果單擊"讀入數據"按鈕，則讀入in.txt文件中的100個整數，放入一個數組中(數組下界為1)，同時在文本框中顯示出來;如果單擊"計算保存"按鈕，則計算數組中大于或等于400并且小于800的所有數之和，并將結果在文本框Text1中顯示出來，同時把結果存入考生文件夾的result.txt文件中(在prog.bas中的putdata過程可以把結果存入result.txt文件)。

　　圖2-6

　　注意：文件必須存放在考生文件夾下，窗體文件名為sj5.frm，工程文件名為sj5.vbp，計算結果存入result.txt文件中，否則沒有成績。

　　參考解析：

　　文本框顯示的內容通過Text屬性設置;按鈕的標題通過Caption屬性設置，單擊命令按鈕觸發Click事件。本題涉及到文件的操作，讀入順序文件以順序的方式打開，用“Input#”語句讀取數據。另外，需要注意的是，對文件操作結束后，一定要關閉文件。

　　①建立界面并設置控件屬性。程序中用到的控件及其屬性見表2-3。

　　表2-3

　　控件 屬性 設置值

　　文本框 Name Text1

　　文本框 ScrollBors 2-vertical

　　文本框 Multiline True

　　命令按鈕 Name Cmd1

　　命令按鈕 Caption 讀入數據

　　命令按鈕 Name Cmd2

　　命令按鈕 Caption 計算保存

　　②打開工程資源管理器，在其空白處右鍵添加模塊prog.bas(此文件已在考生文件夾里)，模塊代碼如下：

　　Option Explicit

　　Sub putdata(ByVal a As Long)

　　Dim sFile As String

　　sFile = "\result.txt"

　　Open App.Path & sFile For Output As #1

　　Print #1, a;

　　Close #1

　　End Sub

　　③打開工程資源管理器，右擊窗體，選擇查看代碼項，在彈出的代碼窗口輸入代碼如下：

　　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

　　Close #1

　　For j = 1 To 100

　　Text1.Text = Text1.Text & i(j) & Space(5)

　　Next

　　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(j)

　　End If

　　Next

　　Text1.Text = Text1.Text & sum & Space(5)

　　putdata sum

　　End Sub

　　‘標準模塊代碼

　　Option Explicit

　　Sub putdata(ByVal a As Long)

　　Dim sFile As String

　　sFile = "\result.txt"

　　Open App.Path & sFile For Output As #1

　　Print #1, a;

　　Close #1

　　End Sub

　　6在考生文件夾下有工程文件sj5.vbp及窗體文件sj5.frm。在名為Form1的窗體上有5個Label控件和2個命令按鈕，數據文件in13.dat存放學生的編號、姓名、性別和體重，如圖635所示。

　　程序運行后，按Begin按鈕后，能從考生文件夾下的in13.dat中讀出數據并把體重大于平均體重的學生的所有數據寫入考生文件夾下的out13.dat文件中。執行完畢，Begin按鈕變成"完成"按鈕，且無效。

　　要求：該程序不完整，請在有問號"?"的地方填入正確內容，然后刪除問號"?"及所有注釋符"′"，但不能修改其他部分。存盤時不得改變文件名和文件夾，相應的數據文件也保存到考生文件夾下，否則沒有成績。

　　參考解析：

　　根據題目

　　1. 打開題目所給工程文件;

　　2. 打開代碼窗口輸入如下代碼：

　　Private Sub Cmd1_Click()

　　Dim i As Integer

　　Dim total As Integer

　　Dim aver As Single

　　Dim num(10), namstring(10), sexstring(10), wages(10)

　　MyFile = App.Path & "\" & "in13.dat"

　　MyFile2 = App.Path &"\"&"out13.dat"

　　Open MyFile1 For Input As #1

　　Open MyFile2 For Output As #2

　　For i = 1 To 10

　　Input #1, num(i), namstring(i), sexstring (i), wages (i)

　　total = total + wages(i)

　　Next i

　　aver = total / 10

　　For i = 1 To 10

　　If wages(i) > aver Then Write #2, num(i), namstring(i), sexstring(i),

　　wages(i)

　　Next i

　　Cmd1.Caption = "完成"

　　Cmd1.Enabled = False

　　End Sub

　　3. 按要求保存文件即完成本題。

　　相關推薦：

　　2015年計算機等級考試時間安排(各地略有不同)

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015年9月計算機等級考試各科目考前必做試題

　　考試吧首發2015年9月計算機二級VB真題答案通知