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

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

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

　　在考生目錄下有一個工程文件sjt5.vbp， 其窗體如圖所示�？忌�目錄下有一個in5.dat文件，文件中有5個運動員的姓名、7個裁判的打分和動作的難度系數(shù)。每人的數(shù)據(jù)占一行，順序是：姓名、7個分數(shù)、難度系數(shù)。程序運行時，單擊“輸入”按鈕，可把in5.dat文件中的5個姓名讀入數(shù)組athlete中，把5組得分(每組7個)和難度系數(shù)讀入二維數(shù)組a中(每行的最后一個元素是難度系數(shù))，并把這些數(shù)據(jù)顯示在Text1文本框中;單擊“選出冠軍”按鈕，則把冠軍的姓名和成績分別顯示在文本框 Text2、Text3中。成績的計算方法是： 去掉一個最高分和一個最低分，求剩下得分的平均分，再乘以3，再乘以難度系數(shù);單擊“存盤”按鈕，則把冠軍姓名和成績存入考生目錄下的out5.dat文件中。

　　要求：

　　去掉程序中的注釋符，把程序中的 ? 改為正確的內(nèi)容(程序中g(shù)etmark函數(shù)的功能是計算并返回第n個運動員的最后得分)，并編寫“選出冠軍”按鈕的Click事件過程。

　　注意：

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

　　解題思路：

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

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

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

　　Private Sub Command2_Click()

　　Dim k As Integer

　　maxmark = getmark(1)

　　m = 1

　　For k = 2 To 5

　　If maxmark < getmark(k) Then

　　maxmark = getmark(k)

　　m = k

　　End If

　　Next k

　　Text2 = athlete(m)

　　Text3 = maxmark

　　End Sub

　　在函數(shù)的Private Function getmark(n As Integer) As Single事件過程中，有三處地方需要修改。

　　1) 將語句

　　's = ?

　　改為

　　s = a(n, 1)

　　2) 將語句

　　'For k = 2 To ?

　　改為

　　For k = 2 To 7

　　3) 將語句

　　'getmark = s * 3 * ?

　　改為

　　getmark = s * 3 * a(n, 8)

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

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

　　相關(guān)推薦：

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

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

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