2012年計算機二級VB上機試題及解題思路第38套

　　3. 綜合應(yīng)用(1小題，計30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生文件夾下有一個工程文件sjt5.vbp，界面如圖所示，其功能如下：

　　1)單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下文件in5.dat中的12組整數(shù)(其中每組含有10個數(shù)，共計120個整數(shù))讀到數(shù)組a 中;

　　2)單擊“計算”按鈕，則對每組數(shù)求平均值，并將所求各組數(shù)的平均值截尾取整后存入s 數(shù)組中;

　　3)單擊“顯示”按鈕，則將所求各組數(shù)的平均值顯示在文本框Text1中;

　　4)單擊“存盤”按鈕則把計算結(jié)果存盤。

　　在給出的窗體文件中已經(jīng)有了全部控件，且“讀數(shù)據(jù)”、“顯示”和“存盤”按鈕的Click事件過程已經(jīng)給出，請為“計算”按鈕編寫適當(dāng)?shù)氖录�過 程以實現(xiàn)上述功能。

　　注意：

　　不得修改已經(jīng)存在的程序，在結(jié)束程序運行之前，必須用“存盤”按鈕存儲計算結(jié)果，否則無成績。最后，程序按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，需添加事件過程。

　　單擊“計算”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command2_Click()

　　’考生編寫

　　For i = 1 To 12

　　Sum = a(i, 1)

　　For j = 2 To 10

　　Sum = Sum + a(i, j)

　　Next j

　　s(i) = Int(Sum / 10)

　　Next i

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運行。

　　相關(guān)推薦：

　　2012年計算機等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總