vb等級(jí)考試題目與評(píng)析75-閱讀頁(yè)
2024-09-24 16:50本頁(yè)面
【正文】 Click事件過(guò)程分別為： Private Sub shape1_Click() = 1 End Sub Private Sub shape2_Click() = 3 End Sub 按要求保存文件即完成本題。考生目錄下有 一個(gè) ，文件中有 5個(gè)運(yùn)動(dòng)員的姓名、 7個(gè)裁判的打分和動(dòng)作的難 度系數(shù)。程序運(yùn) 行時(shí)，單擊 輸入 按鈕，可把 5個(gè)姓名讀入數(shù)組 athlete 中，把 5組得分（每組 7個(gè)）和難度系數(shù)讀入二維數(shù)組 a中（每行的最后一個(gè) 元素是難度系數(shù)），并把這些數(shù)據(jù)顯示在 Text1文本框中；單擊 選出冠軍 按鈕，則把冠軍的姓名和成績(jī)分別顯示在文本框 Text Text3中 。 要求： 去掉程序中的注釋符，把程序中的 ？ 改為正確的內(nèi)容（程序中 getmark 函數(shù)的功能是計(jì)算并返回第 n個(gè)運(yùn)動(dòng)員的最后得分），并編寫(xiě) 選出冠軍 按鈕的 Click事件過(guò)程。最后，程序按原文件名存盤(pán)。 本題主要代碼如下： Option Base 1 Dim a(5, 8) As Single, athlete(5) As String * 8 Private Sub Command1_Click() Dim ch As String Text1 = Open amp。 ch amp。 ch amp。 Chr(13) amp。 \ For Output As 1 Print 1, Text2, Text3 Close 1 End Sub 按要求保存文件 即完成本題
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1