4(1)在考生文件夾中有文件sj3.vbp及其窗體文件sj3.frm，該程序是不完整的，請在有"?"的地方填入正確內容，然后刪除"?"及代碼前的所有注釋符(即'號)，但不能修改其他部分。存盤時不得改變文件和文件名。

　　本題描述如下：

　　窗體上有一個名稱為Text1的文本框;兩個復選框，名稱分別為Check1和Check2，標題分別為"Item1"和"Item2";一個按鈕，標題為"選擇"。要求程序運行后，如果Check1和Check2都不選，單擊窗體后，則在文本框中什么都不顯示;如果只選中Check1，單擊按鈕，則在文本框中顯示"選中Item1";如果只選中Check2，然后單擊按鈕，則在文本框中顯示"選中Item2";如果同時選中Check1和Check2，單擊窗體，則在文本框中顯示"不能全選"。程序運行時窗體顯示如圖8-3所示。

　　圖8-3

　　(2)在考生文件夾下有一個工程文件sj4.vbp，要求程序運行后，如果多次單擊列表框List1中的項，則可同時選擇這些項。而如果單擊"導出"按鈕，則在列表框List2中輸出所有選中的列表項，如圖8-4所示。

　　圖8-4

　　要求：修改列表框List1的適當屬性，使得運行時單擊可以多選，并去掉程序中的注釋符"'"，把程序中的"?"改為正確的內容，使其實現上述功能，但不能修改程序中的其他部分。最后的把修改后的程序以原來的文件名存盤。

　　參考解析：

　　(1)根據題意， 將兩個名稱分別為Check1和Check2的復選按鈕、一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕放入到窗體中，復選按鈕的Caption屬性分別為Item1和Item2，Text1的Text屬性為空，命令按鈕的Caption屬性為"選擇"。雙擊Command1進入代碼編寫窗口，代碼如下：

　　Private Sub Command1_Click()

　　If Check1.Value = 1 Then '當選中Check1時

　　If Check2.Value = 1 Then '選中Check2

　　Text1.Text = "不能全選" '在Text1中顯示不能全選

　　Else '沒有選中check2

　　Text1.Text = "選中Item1" '在Text1中顯示選中Item1

　　End If

　　Else '當沒選中Check1時

　　If Check2.Value = 1 Then '選中Check2

　　Text1.Text = "選中Item2" '顯示選中Item2

　　Else

　　Text1.Text = "" '不顯示

　　End If

　　End If

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

　　(2)列表框控件用于顯示可供單一或多個選擇的列表項。在程序運行時可通過代碼：列表框名.AddItem "項目" 給列表框添加列表項;MultiSelec屬性用于設置是否可在列表項中選擇多項，值為0(缺省設置)表示不允許選擇多項，值為1表示允許做簡單多項選擇，值為2表示允許配合使用Shift、Ctrl鍵做多項選擇;Selected(Index)屬性用于設置或返回指定索引號的列表項選擇狀態(索引號從0開始)，值為True表示被選中，值為False表示未被選中;List(Index)屬性用于設置或返回指定索引號的列表項的內容;ListCount屬性用來返回列表框中當前的列表項條數。

　　根據題意，將列表框List的MultiSelect為1-Simple，雙擊Command1進入代碼窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　Dim i As Integer

　　For i = 0 To List1.ListCount - 1 '遍歷list1列表

　　If List1.Selected(i) = True Then '找到選中項

　　List2.AddItem List1.List(i) '將其加入到list2列表框中

　　End If

　　Next i

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

　　相關推薦：

　　2015年計算機二級考試《VB》考前練習題匯總

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015計算機二級考試《VB》模擬練習題及解析匯總