三、簡單應用題

　　(1)根據題意，將兩個名稱分別為Check1和Check2的復選按鈕、一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕放入到窗體中，復選按鈕的Caption屬性分別為Item1和Item2，Text1的

　　Text屬性為空，命令按鈕的Caption屬性為“選擇”。雙擊Command1進入代碼編寫窗口，代碼如下：

　　Private hub 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時

　　IfCheck2.Value=1 Then’選中Cheek2

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

　　E1se

　　Text1.Text=""’不顯示

　　End If

　　End If

　　End Sub

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

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

　　根據題意，將列表框List的MuhiSelect為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

　　End Sub

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

　　相關推薦：

　　2014年計算機等級考試時間調整通知

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

　　2014計算機等級《二級VB》上機預測題及答案匯總

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