vb等級考試題目與評析36(編輯修改稿)
2024-10-10 16:53 本頁面
【文章內(nèi)容簡介】 ******************************* （ 2）在考生文件夾下有一個工程文件 （相應(yīng)的窗體文件名為 ），其功能是通過調(diào)用過程 Sort將數(shù)組按升序排序。程序運(yùn)行后，在四個 文本框中各輸入一個整數(shù)（如圖 1所示），然后單擊命令按鈕，即可使數(shù) 組按升序排序，并在文本框中顯示出來（如圖 2所示）。這個程序不完整， 請把它補(bǔ)充完整，并能正確運(yùn)行。 要求： 去掉程序中的注釋符，把程序中的？改為正確 的內(nèi)容，使其實(shí)現(xiàn)上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盤。 圖 1 圖 2 第 1小題： 列表框的 ListIndex屬性 用來設(shè)置或返回列表框中當(dāng)前選中的列表項。 列表框的 AddItem方法 用來向列表框中添加項目，其語法為： 列表 框名 .AddItem 項目名稱 列表框的 RemoveItem方法 用來刪除列表框中的指定項目，其語法為： 列表框名 .RemoveItem 索引值 解題方法： 打開工程文件 ，點(diǎn)擊工具欄上的菜單編輯器，添加名稱為 Item，標(biāo)題為“項目”的主菜在添加兩個子菜單，名稱為 Add和 Delete，標(biāo)題為“添加項目”和“刪除項目”。單點(diǎn)擊工具箱中的 ListBox和 TextBox控件圖標(biāo)，然后在窗體上拖拉出一個列表框、一個文本框。打開代碼窗口，補(bǔ)充如下的代碼： Private Sub Add_Click() = InputBox(請輸入要添加的項目 ) End Sub Private Sub Delete_Click() = InputBox(請輸入要刪除的項目 ) For i = 0 To If (i) = Then i End If Next i End Sub 按要求保存文件即完成本題。 第 2小題： 本題的考查的是數(shù)組的應(yīng)用，通過調(diào)用過程 Sort將數(shù)組按升序排序， Ubound()函數(shù)是用來獲得數(shù)組的上界，Lbound()函數(shù)是獲得數(shù)組的下界，打開工程文件 ，在代碼窗口中補(bǔ)充如下代碼： Private Sub Sort(a() As Integer) Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer
公司管理相關(guān)推薦
鄂ICP備17016276號-1