| 第 1 頁(yè)：基本操作題 |
| 第 3 頁(yè)：簡(jiǎn)單應(yīng)用題 |
| 第 5 頁(yè)：綜合應(yīng)用題 |
4(1)在考生文件夾中有文件sj3.vbp及其窗體文件sj3.frm，該程序是不完整的，請(qǐng)?jiān)谟??"的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件和文件名。
本題描述如下：
窗體上有一個(gè)名稱為Text1的文本框;兩個(gè)復(fù)選框，名稱分別為Check1和Check2，標(biāo)題分別為"Item1"和"Item2";一個(gè)按鈕，標(biāo)題為"選擇"。要求程序運(yùn)行后，如果Check1和Check2都不選，單擊窗體后，則在文本框中什么都不顯示;如果只選中Check1，單擊按鈕，則在文本框中顯示"選中Item1";如果只選中Check2，然后單擊按鈕，則在文本框中顯示"選中Item2";如果同時(shí)選中Check1和Check2，單擊窗體，則在文本框中顯示"不能全選"。程序運(yùn)行時(shí)窗體顯示如圖8-3所示。
圖8-3
(2)在考生文件夾下有一個(gè)工程文件sj4.vbp，要求程序運(yùn)行后，如果多次單擊列表框List1中的項(xiàng)，則可同時(shí)選擇這些項(xiàng)。而如果單擊"導(dǎo)出"按鈕，則在列表框List2中輸出所有選中的列表項(xiàng)，如圖8-4所示。
圖8-4
要求：修改列表框List1的適當(dāng)屬性，使得運(yùn)行時(shí)單擊可以多選，并去掉程序中的注釋符"'"，把程序中的"?"改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后的把修改后的程序以原來(lái)的文件名存盤。
參考解析：
(1)根據(jù)題意， 將兩個(gè)名稱分別為Check1和Check2的復(fù)選按鈕、一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕放入到窗體中，復(fù)選按鈕的Caption屬性分別為Item1和Item2，Text1的Text屬性為空，命令按鈕的Caption屬性為"選擇"。雙擊Command1進(jìn)入代碼編寫窗口，代碼如下：
Private Sub Command1_Click()
If Check1.Value = 1 Then '當(dāng)選中Check1時(shí)
If Check2.Value = 1 Then '選中Check2
Text1.Text = "不能全選" '在Text1中顯示不能全選
Else '沒(méi)有選中check2
Text1.Text = "選中Item1" '在Text1中顯示選中Item1
End If
Else '當(dāng)沒(méi)選中Check1時(shí)
If Check2.Value = 1 Then '選中Check2
Text1.Text = "選中Item2" '顯示選中Item2
Else
Text1.Text = "" '不顯示
End If
End If
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
(2)列表框控件用于顯示可供單一或多個(gè)選擇的列表項(xiàng)。在程序運(yùn)行時(shí)可通過(guò)代碼：列表框名.AddItem "項(xiàng)目" 給列表框添加列表項(xiàng);MultiSelec屬性用于設(shè)置是否可在列表項(xiàng)中選擇多項(xiàng)，值為0(缺省設(shè)置)表示不允許選擇多項(xiàng)，值為1表示允許做簡(jiǎn)單多項(xiàng)選擇，值為2表示允許配合使用Shift、Ctrl鍵做多項(xiàng)選擇;Selected(Index)屬性用于設(shè)置或返回指定索引號(hào)的列表項(xiàng)選擇狀態(tài)(索引號(hào)從0開始)，值為True表示被選中，值為False表示未被選中;List(Index)屬性用于設(shè)置或返回指定索引號(hào)的列表項(xiàng)的內(nèi)容;ListCount屬性用來(lái)返回列表框中當(dāng)前的列表項(xiàng)條數(shù)。
根據(jù)題意，將列表框List的MultiSelect為1-Simple，雙擊Command1進(jìn)入代碼窗口，編寫如下代碼：
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1 '遍歷list1列表
If List1.Selected(i) = True Then '找到選中項(xiàng)
List2.AddItem List1.List(i) '將其加入到list2列表框中
End If
Next i
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
