三、綜合應用題

　　5在窗體上有3個菜單，名稱分別為Read、Arg和Save，標題分別為"讀入數據"、"計算顯示"和"保存"，一個文本框，名稱為Text1，MultiLine屬性設置為True，ScrollBars屬性設置為2 。

　　程序運行界面如圖4-7所示。如果執行"讀入數據"命令，則讀入sjin.txt文件中的50個整數，放入一個數組中，數組的下界為1;如果執行"計算顯示"命令，則把該數組中下標為奇數的元素在文本框中顯示出來，求出它們的平均數，并把所求得的和在文本框中顯示出來;如果執行"保存"命令，則把所求得的平均值存入考生文件夾下的sjout.txt文件中。

　　圖4-7

　　在考生文件夾下有一個工程文件sj5.vbp。請將程序中有問號的地方用相應的代碼補完整，并將代碼前的所有注釋符(即'號)去掉。

　　注意：考生不得修改窗體文件中已經存在的程序。存盤時，工程文件名仍為sj5.vbp，窗體文件名仍為sj5.frm。

　　參考解析：

　　根據題意，在名為Form1的窗體內添加3個主菜單，名稱分別為Read、Arg和Save，Caption屬性分別為"讀入數據"、"計算顯示"和"保存"，畫一個列表框控件，Name為List1，單擊讀 入數據菜單，進入代碼窗口，編寫如下代碼：

　　Dim a(50) As Long '全局變量

　　Dim str(50) As String '全局變量

　　Dim total As Long

　　Private Sub Arg_Click() '求平均值

　　total = total \ 50

　　Text1.Text = total

　　End Sub

　　Private Sub Read_Click()

　　total = 0

　　Text1.Text = ""

　　Open "App.Path&\sjin.txt" For Input As #1 '打開"sjin.txt"文件

　　Dim i As Integer

　　Dim temp As Integer

　　For i = 1 To 50 '利用For循環讀入數據

　　Input #1, temp

　　a(i) = temp '按順序讀入到數組中

　　Next i

　　For i = 1 To 50

　　total = total + a(i) '求和

　　str(i) = a(i)

　　Text1.Text = Text1.Text + str(i) + vbCrLf '將數組中的50個數放入Text中顯示

　　Next i

　　Close #1

　　End Sub

　　Private Sub Save_Click() '保存數據

　　Open "App.Path&\sjout.txt" For Output As #1

　　Write #1, total

　　Close #1 '將結果保存到out.txt

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

　　相關推薦：

　　2015年計算機二級考試《VB》考前練習題匯總

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

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

　　2015年計算機二級《C語言》沖刺試題及答案匯總