2012年計(jì)算機(jī)二級(jí)VB上機(jī)試題及解題思路第43套

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

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

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

　　要求：

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

　　注意：

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

　　解題思路：

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

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

　　單擊“選出冠軍”按鈕(即運(yùn)行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

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

　　相關(guān)推薦：

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

　　2012年計(jì)算機(jī)等級(jí)考試二級(jí)VB重點(diǎn)知識(shí)匯總

　　2012年下半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口匯總