三、綜合應(yīng)用題

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

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

　　圖4-7

　　在考生文件夾下有一個(gè)工程文件sj5.vbp。請(qǐng)將程序中有問號(hào)的地方用相應(yīng)的代碼補(bǔ)完整，并將代碼前的所有注釋符(即'號(hào))去掉。

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

　　參考解析：

　　根據(jù)題意，在名為Form1的窗體內(nèi)添加3個(gè)主菜單，名稱分別為Read、Arg和Save，Caption屬性分別為"讀入數(shù)據(jù)"、"計(jì)算顯示"和"保存"，畫一個(gè)列表框控件，Name為L(zhǎng)ist1，單擊讀 入數(shù)據(jù)菜單，進(jìn)入代碼窗口，編寫如下代碼：

　　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循環(huán)讀入數(shù)據(jù)

　　Input #1, temp

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

　　Next i

　　For i = 1 To 50

　　total = total + a(i) '求和

　　str(i) = a(i)

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

　　Next i

　　Close #1

　　End Sub

　　Private Sub Save_Click() '保存數(shù)據(jù)

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

　　Write #1, total

　　Close #1 '將結(jié)果保存到out.txt

　　End Sub

　　單擊按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前預(yù)測(cè)試卷匯總

　　2015年9月計(jì)算機(jī)等級(jí)考試各科目考前必做試題

　　2015年計(jì)算機(jī)二級(jí)《C語言》沖刺試題及答案匯總