vb等級考試題目與評析58-資料下載頁
2025-08-27 20:42本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序。在名稱為Form1的窗體上畫一個標簽，其名稱為Label1，標題為“等級考試”，BorderStyle. 適當?shù)氖录^程。程序運行后，其界面如圖1所示，此時如果單擊命令按鈕，則標簽消失，同時用。按鈕，其名稱分別為Op1、Op2和Op3，標題分別為北京、西安和杭州，編寫適當?shù)氖录^程。中顯示“兵馬俑”；如果選擇單選按鈕Op3，則在文本框中顯示“西湖”。Visible屬性用來控制控件的可見性，而BorderStyle則是用來控制控件的邊框風格，本題中設(shè)置為1，即有一個。第二題主要考查了單選按鈕的使用以及其Click事件的意義。鈕，相應(yīng)的計算結(jié)果將顯示在Label4中，程序運行情況如圖2所示。完整，并能正確運行。改為正確的內(nèi)容，使其能正確運行，但不能修改程序。將輸出“5月份是夏季”，如圖所示。通信錄中的每個記錄由3個字段組成，在讀寫隨機文件時一般采用Put與Get語句，具體用法見程序。
【正文】 這一題主要考察了對于隨機文件的讀取與寫入操作 在讀寫隨機文件時一般采用 Put與 Get語句，具體用法見程序。 程序代碼如下： Private Type Tele Name As String * 15 Tel As String * 15 Pos As Long End Type Dim Pers As Tele Dim RecNum As Integer Private Sub Command1_Click() Open For Random As 1 Len = Len(Pers) RecNum = LOF(1) / Len(Pers) Do = InputBox(請輸入姓名 ) = InputBox(請輸入電話 ) = InputBox(請輸入郵政編碼 ) RecNum = RecNum + 1 Put 1, RecNum, Pers Asp = InputBox(More(Y/N)?) Loop While UCase(asp) = Y Close 1 End Sub Private Sub Command2_Click() Open For Random As 1 Len = Len(Pers) RecNum = LOF(1) / Len(Pers) Cls For i = 1 To RecNum Get 1, i, Pers Print 。 。 Next i Close 1 End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1