4在考生文件夾下有一個(gè)工程文件sit3.vbp(相應(yīng)的窗體文件名為sit3.frm)，在窗體上添加一個(gè)名稱為L(zhǎng)istl的列表框和一個(gè)名稱為T(mén)extl的文本框，如圖1所示。編寫(xiě)窗體的MouseDown事件過(guò)程。程序運(yùn)行后，如果用鼠標(biāo)單擊窗體，則從鍵盤(pán)上輸入要添加到列表框中的項(xiàng)目(內(nèi)容任意，不少于三個(gè));如果用鼠標(biāo)右鍵單擊窗體，則從鍵盤(pán)上輸入要?jiǎng)h除的項(xiàng)目，將其從列表框中刪除。程序的運(yùn)行情況如圖2所示。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。

　　要求：去掉程序中的注釋符，把程序中的?改為適當(dāng)?shù)膬?nèi)容，使其正確運(yùn)行，但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤(pán)。

　　參考解析：

　　【考點(diǎn)分析】本題考點(diǎn)有：列表框的Name、List和ListCount屬性，文本框的Name和Text屬性，Removehem方法，InputBox函數(shù)，F(xiàn)or循環(huán)語(yǔ)句以及If判斷語(yǔ)句。

　　【解題思路】當(dāng)在窗體上按下鼠標(biāo)鍵時(shí)將觸發(fā)其Mouse-Down事件，該事件過(guò)程的參數(shù)Button值為1時(shí)表示當(dāng)前按下的是鼠標(biāo)左鍵;當(dāng)Button值為2時(shí)表示當(dāng)前按下的是鼠標(biāo)右鍵。向列表框添加項(xiàng)目使用Addhem方法，刪除列表項(xiàng)使用Removehem方法。當(dāng)執(zhí)行刪除操作時(shí)，本題在For循環(huán)語(yǔ)句中逐一判斷列表中各項(xiàng)是否與輸入內(nèi)容一致，若一致則刪除列表框中該項(xiàng)。

　　程序中用到了InputBox()函數(shù)，其格式為：

　　InputBox(prompt[，title][，default][，xpos][，ypos][，helpfile，context])

　　其中常用參數(shù)為prompt和title。prompt是一個(gè)字符串，其長(zhǎng)度不得超過(guò)1024個(gè)字符，它是在對(duì)話框內(nèi)顯示的信息，用來(lái)提示用戶輸入。

　　title：是一個(gè)字符串，它是對(duì)話框的標(biāo)題，顯示在對(duì)話框頂部的標(biāo)題區(qū)。

　　【操作步驟】

　　步驟1：打開(kāi)本題工程文件，按表3.18所列在窗體畫(huà)出控件并設(shè)置其屬性。

　　步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“´”，將問(wèn)號(hào)改為正確的內(nèi)容。

　　參考答案(橫線部分是需考生填入的內(nèi)容)

　　Private Sub Form_MouseDown (Button As Integer，Shift As Integer，X As Single，Y As Single)

　　If Button=1 Then

　　Text1.Text=InputBox("請(qǐng)輸入要添加的項(xiàng)目")

　　List1.AddItem___Text1.Text_______´將Textl中的內(nèi)容加入列表

　　End If

　　If Button=2 Then

　　Text1.Text=InputBox("請(qǐng)輸入要?jiǎng)h除的項(xiàng)目")

　　´列表總數(shù)用LiStCount求得

　　For =0 To_____List1.ListCount-1_____

　　´判斷列表項(xiàng)是否為要?jiǎng)h除的項(xiàng)

　　If List1.List(i)=____Text1.text______

　　Then

　　´刪除i所對(duì)應(yīng)的項(xiàng)

　　List1.RemoveItem____i______

　　End If

　　Next i

　　End If

　　End Sub

　　程序結(jié)束

　　步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。

　　【易錯(cuò)提示】列表數(shù)組List(i)下標(biāo)從0開(kāi)始，列表項(xiàng)的循環(huán)上限應(yīng)為L(zhǎng)istCount-1，要注意InputBox語(yǔ)句的格式。

　　相關(guān)推薦：

　　2015年計(jì)算機(jī)二級(jí)《MSOffice》全真模擬試題匯總

　　2015計(jì)算機(jī)二級(jí)《C語(yǔ)言程序設(shè)計(jì)》無(wú)紙化操作題匯總