vb等級考試題目與評析75-資料下載頁
2024-09-04 16:50本頁面
【導讀】請根據(jù)以下各小題的要求設(shè)計VisualBasic應用程序。4個列表項："數(shù)學"、"物理"、"化學"、"語文"，如圖所示。英語"；單擊窗體時，則刪除最后一個列表項。要求程序中不得使用變量，每個事件過程中只能寫一條語句。別為"正方形"和"圓形"，其名稱分別為shape1和shape2，如圖所示，然后編寫適當?shù)某绦?。程序運行后，如果選擇"正方形"菜單項，則形。放在考生文件夾下，工程文件名為，窗體文件名為。List屬性用來設(shè)置或返回列。表框中當前選中的列表項、保存列表內(nèi)容等，其語法為：列表框名.List，列表項序號由上到下依。列表框的RemoveItem方法用來刪除列表框中的指定項目，本題主要考查了Shape形狀控件和Menu控件的設(shè)計。在Menu控件中，可以用Caption屬性來改變菜單標題，兩個子菜單命令的Click事。"按鈕，則把冠軍的姓名和成績分別顯示在文本框Text2、Text3中。盤"按鈕存儲計算結(jié)果，否則無成績。本題主要考查了文件的讀取與寫入操作、TextBox控件的使用以及二維數(shù)組的應用。
【正文】 maxnum = a(n, k) End If If minnum a(n, k) Then minnum = a(n, k) End If Next k s = (s maxnum minnum) / 5 getmark = s * 3 * a(n, 8) End Function Private Sub Command2_Click() Dim Sorce(5) As Single Dim i As Integer Dim maxSorce As Single Dim maxnum As Integer For i = 1 To 5 Sorce(i) = getmark(i) Next maxSorce = Sorce(1) For i = 2 To 5 If Sorce(i) maxSorce Then maxSorce = Sorce(i) maxnum = i End If Next = athlete(maxnum) = maxSorce End Sub Private Sub Command3_Click() Open amp。 \ For Output As 1 Print 1, Text2, Text3 Close 1 End Sub 按要求保存文件 即完成本題。
公司管理相關(guān)推薦
鄂ICP備17016276號-1