4在考生文件夾下有一個工程文件sit3.vbp(相應的窗體文件名為sit3.frm)，在窗體上添加一個名稱為Listl的列表框和一個名稱為Textl的文本框，如圖1所示。編寫窗體的MouseDown事件過程。程序運行后，如果用鼠標單擊窗體，則從鍵盤上輸入要添加到列表框中的項目(內容任意，不少于三個);如果用鼠標右鍵單擊窗體，則從鍵盤上輸入要刪除的項目，將其從列表框中刪除。程序的運行情況如圖2所示。這個程序不完整，請把它補充完整，并能正確運行。

　　要求：去掉程序中的注釋符，把程序中的?改為適當的內容，使其正確運行，但不能修改程序中的其他部分。最后將修改后的文件按原文件名存盤。

　　參考解析：

　　【考點分析】本題考點有：列表框的Name、List和ListCount屬性，文本框的Name和Text屬性，Removehem方法，InputBox函數，For循環語句以及If判斷語句。

　　【解題思路】當在窗體上按下鼠標鍵時將觸發其Mouse-Down事件，該事件過程的參數Button值為1時表示當前按下的是鼠標左鍵;當Button值為2時表示當前按下的是鼠標右鍵。向列表框添加項目使用Addhem方法，刪除列表項使用Removehem方法。當執行刪除操作時，本題在For循環語句中逐一判斷列表中各項是否與輸入內容一致，若一致則刪除列表框中該項。

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

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

　　其中常用參數為prompt和title。prompt是一個字符串，其長度不得超過1024個字符，它是在對話框內顯示的信息，用來提示用戶輸入。

　　title：是一個字符串，它是對話框的標題，顯示在對話框頂部的標題區。

　　【操作步驟】

　　步驟1：打開本題工程文件，按表3.18所列在窗體畫出控件并設置其屬性。

　　步驟2：打開代碼編輯窗口，去掉程序中的注釋符“´”，將問號改為正確的內容。

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

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

　　If Button=1 Then

　　Text1.Text=InputBox("請輸入要添加的項目")

　　List1.AddItem___Text1.Text_______´將Textl中的內容加入列表

　　End If

　　If Button=2 Then

　　Text1.Text=InputBox("請輸入要刪除的項目")

　　´列表總數用LiStCount求得

　　For =0 To_____List1.ListCount-1_____

　　´判斷列表項是否為要刪除的項

　　If List1.List(i)=____Text1.text______

　　Then

　　´刪除i所對應的項

　　List1.RemoveItem____i______

　　End If

　　Next i

　　End If

　　End Sub

　　程序結束

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　【易錯提示】列表數組List(i)下標從0開始，列表項的循環上限應為ListCount-1，要注意InputBox語句的格式。

　　相關推薦：

　　2015年計算機二級《MSOffice》全真模擬試題匯總

　　2015計算機二級《C語言程序設計》無紙化操作題匯總