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