41

　　(1)在窗體上畫一個列表框，名稱為Lst1，通過屬性窗口向列表框中添加3個項目，分別為"Item1、"Item2"和"Item3"。編寫適當的事件過程。使程序運行后，如果雙擊Form1空白處，則清空列表框中的內容。程序運行時窗體界面如圖47-1和圖47-2所示。

　　圖47-1

　　圖47-2

　　注意：存盤時必須存放在考生文件夾下，工程文件名為sj1.vbp，窗體文件名為sj1.frm。

　　(2)在窗體上畫兩個命令按鈕，名稱分別為Command1、Command2、標題分別為"啟用"、"禁用"，一個名稱為Text1的Text控件。請編寫適當的事件過程，使得程序在運行時，單擊"啟用"按鈕，Text1會變為有效，而當單擊"禁用"命令按鈕Text1變為無效。程序中不得使用任何變量，程序運行時的窗體界面如圖47-3和圖47-4所示。

　　圖47-3

　　圖47-4

　　注意：保存時必須存放在考生文件夾下，窗體文件名為sj2.frm，工程文件名為sj2.vbp。參考答案:請參考解析 系統解析:

　　(1)列表框控件用于顯示可供單一或多個選擇的列表項，給列表框添加列表項既可以在設計階段通過其List屬性設置加入(注意每輸入完一項后按"Ctrl+Enter"組合鍵換行再輸入下一項)，也可在程序運行時通過代碼"列表框名.AddItem"項目""加入，清除窗體內容可通過Cls方法來實現。

　　根據題意，新建"標準EXE"工程，將一個List控件添加到窗體中，其名稱為List1，在屬性窗口的list屬性中添加"Item1"、"Item2"和"Item3"，每輸入一個后按"Ctrl+Enter"組合鍵換行輸入下一個元素，當輸入完成后，按回車鍵，則元素添加完成，雙擊Form1的空白處，進入代碼編寫窗口，編寫如下代碼：

　　Private Sub Form_DblClick()

　　Dim i As Integer

　　For i = List1.ListCount - 1 To 0 Step -1 '先刪除索引大的項，防止i溢出

　　List1.RemoveItem i '移除索引指定項

　　Next i

　　End Sub

　　單擊

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

　　(2)命令按鈕(CommandButton)常用來建立實現某種命令，通過命令按鈕的Caption屬性設置其標題;控件是否有效由其Enabled屬性來設置，值為True表示有效，值為False表示無效;單擊命令按鈕將觸發其Click事件。

　　要實現程序運行時單擊某個按鈕使文本框變為無效，只需編寫該按鈕的Click事件過程中修改文本框的Enabled屬性值即可。

　　根據題意，新建"標準EXE"工程，將一個文本框控件和兩個命令按鈕添加到窗體中，文本框的名稱為Text1，命令按鈕的名稱分別為Command1和Command2，Caption屬性分別為"啟用"和"禁用"。雙擊Command1進入代碼窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　Text1.Enabled = True '啟用Text1

　　End Sub

　　Private Sub Command2_Click()

　　Text1.Enabled = False '禁用Text1

　　End Sub

　　單擊

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

　　相關推薦：

　　2014年全國計算機二級VB上機考試試題匯總

　　考試吧考后首發2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題