vb等級考試題目與評析36(存儲版)
【正文】 ”和“刪除項目”，然后畫一個列表框 （名稱為 List1）和一個文本框（名稱為 Text1），如圖 1所示。 第 2小題： 新建一個工程，在窗體上添加一個文本框 Text1和一個水平滾動條 HScroll1。 圖 1 圖 2 ********************************************************************** （ 2）在名稱為 Form1的窗體上畫一個文本框（名稱為 Text1， Text屬性為“國” ， FontName屬性為“黑體”）和一個水平滾動條（名稱為 HScroll1），如 圖 1所示。1. 基本操作（ 2小題，每小題 15分，共計 30分） 注意：下面出現(xiàn)的“考生文件夾”均為 C:\WEXAM\00000000\ ********************************************************************** 請根據(jù)以下各小題的要求設計 Visual Basic應用程序（包括界面和代碼）。在屬性窗口中對滾動條設置如下屬性： Min 10 Max 100 LargeChange 5 SmallChange 2 編寫適當?shù)氖录^程。文本框的 Text屬性設置為“國”，F(xiàn)ontName屬性設置為“黑體”。編寫適當 的事件過程。程序運行后，在四個 文本框中各輸入一個整數(shù)（如圖 1所示），然后單擊命令按鈕，即可使數(shù) 組按升序排序，并在文本框中顯示出來（如圖 2所示）。 第 2小題： 本題的考查的是數(shù)組的應用，通過調用過程 Sort將數(shù)組按升序排序， Ubound()函數(shù)是用來獲得數(shù)組的上界，Lbound()函數(shù)是獲得數(shù)組的下界，打開工程文件 ，在代碼窗口中補充如下代碼： Private Sub Sort(a() As Integer) Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer Start = LBound(a) Finish = UBound(a) For i = 4 To 2 Step 1 For j = 1 To 3 If a(j) a(j + 1) Then t =
公司管理相關推薦
鄂ICP備17016276號-1