vb等級(jí)考試題目與評(píng)析49-文庫(kù)吧資料
2024-09-12 10:04本頁(yè)面
【正文】 Min求數(shù)組的最小值， Ubound()函數(shù)是用來(lái)獲得數(shù)組的上界，Lbound()函數(shù)是獲得數(shù)組的下界，打開(kāi)工程文件 ，在代碼窗口中添加如下代碼： Private Function FindMin(a() As Integer) Dim Start As Integer Dim Finish As Integer, i As Integer Start = LBound(a) Finish = UBound(a) Min = a(Start) For i = Start To Finish If a(i) Min Then Min = a(i) Next i FindMin = Min End Function Private Sub Command1_Click() Dim arr1 Dim arr2(4) As Integer arr1 = Array(Val(), Val(), Val(), Val()) For i = 1 To 4 arr2(i) = CInt(arr1(i)) Next i M = FindMin(arr2()) Print 最小值是 : 。 列表框的 RemoveItem方法 用來(lái)刪除列表框中的指定項(xiàng)目，其語(yǔ)法為： 列表框名 .RemoveItem索引值 解題方法： 打開(kāi)工程文件 ，點(diǎn)擊工具箱中的 ListBox和 TextBox控件圖標(biāo)，然后在窗體 上拖拉出一個(gè)列表框和文本框。最后把修改后的文件按原文件名存 盤(pán)。這個(gè)程序不完整， 請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。 圖 1 圖 2 ********************************************************************** （ 2）在考生文件夾下有一個(gè)工程文件 （相應(yīng)的窗體文件名為 ），其功能是通過(guò)調(diào)用過(guò)程 FindMin求數(shù)組的最小值，請(qǐng)裝入該文件。 要求： 去掉程序中的注釋符，把程序中的？改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行， 但不能修改程序中的其他部分。 提供的窗體文件可以實(shí)現(xiàn)上述功能。 程 序運(yùn)行后，如果用鼠標(biāo)左鍵單擊窗體，則從鍵盤(pán)上輸入要添加到列表框中 的項(xiàng)目（內(nèi)容任意，不少于三個(gè)）；如果用鼠標(biāo)右鍵單擊窗體，則從鍵盤(pán) 上輸入要?jiǎng)h除的項(xiàng)目，將其從列表框中刪除
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1