vb等級考試題目與評析61-資料下載頁
2025-08-26 16:51本頁面
【導讀】請根據(jù)以下各小題的要求設計VisualBasic應用程序。在名稱為Form1的窗體上用名稱為Shape1的形狀控件畫一個橢圓，高、寬分別為1000、2020。1）橢圓的邊線為紅色；2）窗體的標題為"橢圓"，窗體的最大化按鈕不可用。存盤時必須存放在考生文件夾下，工程文件名為，窗體文件名為。動窗體，其標題為"啟動窗體"，在Form2上畫一個命令按鈕，名稱為Command1，標題為"結束"，如圖。1）單擊Form2窗體，則顯示Form1窗體；要求程序中不能使用變量，每個事件過程中只能寫一條語句。在Shape控件中，可以用Shape屬性來改變控件的形狀，同時該屬性也為控。第二題主要考查了VB中有關窗體的使用。在VB中可用Load來加載窗體，這時會觸發(fā)被加載窗體的Load事件，可。窗體右上角的關閉按鈕結束程序，否則無成績。程序運行時，有六個香蕉圖案的小圖片框不顯示。數(shù)組元素，產(chǎn)生香蕉被放入的效果。Value屬性用來表示單選按鈕的狀態(tài)，可以取True和False兩種值，取值為True時，單選按鈕是"打開"的，按鈕。組，名稱為Text3，用于顯示每門課的平均分。
【正文】 i, j) Text1 = Text1 + + Str(a(i, j)) Next j Text1 = Text1 + Chr$(13) + Chr$(10) + Chr$(13) + Chr$(10) Next i Close 1 End Sub Private Sub mand2_click() Dim i As Integer, j As Integer, sum(6) As Integer For i = 1 To 5 For j = 1 To 6 sum(i) = sum(i) + a(i, j) Next j Text2(i 1) = Round(sum(i) / 6) Next i End Sub Private Sub Command3_Click() Dim i As Integer, j As Integer, sum(6) As Integer For i = 1 To 6 For j = 1 To 5 sum(i) = sum(i) + a(j, i) Next j Text3(i 1) = Round(sum(i) / 5) Next i End Sub Private Sub Command4_Click() Open For Output As 1 For k = 0 To 4 Print 1, Text2(k).Text Next k For k = 0 To 5 Print 1, Text3(k).Text Next k End Sub
公司管理相關推薦
鄂ICP備17016276號-1