| 第 1 頁(yè)：基本操作題 |
| 第 3 頁(yè)：簡(jiǎn)單應(yīng)用題 |
| 第 5 頁(yè)：綜合應(yīng)用題 |
三、綜合應(yīng)用題
5在考生文件夾下有一個(gè)工程文件sj5.vbp，其窗體上有一個(gè)命令按鈕，名稱(chēng)為Command1、標(biāo)題為"添加";一個(gè)文本框，名稱(chēng)為T(mén)ext1。程序運(yùn)行前，文本框的編輯區(qū)為空白;一個(gè)列表框，名稱(chēng)為L(zhǎng)ist1。
在文本框中輸入文本，若單擊"添加"按鈕，文本框中的文本被作為一個(gè)列表項(xiàng)被加入到列表框中，如圖39-5所示。若雙擊文本框，則使文本框中的內(nèi)容為空，且使"添加"按鈕變?yōu)闊o(wú)效。
圖39-5
要求：去掉程序中的注釋符"'"，把程序中的"?"改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性，最后把修改后的文件以原來(lái)的文件名存盤(pán)。
參考解析：
本題重點(diǎn)考查列表框控件 的使用及命令按鈕的事件和屬性設(shè)置。
列表框控件用于提供可進(jìn)行單一或多個(gè)選擇的列表項(xiàng)，給列表框添加列表項(xiàng)既可以在設(shè)計(jì)階段通過(guò)其List屬性設(shè)置加入，也可在程序運(yùn)行時(shí)通過(guò)代碼“列表框名.AddItem"項(xiàng)目"”加入，清除列表框內(nèi)容可通過(guò)其Clear方法來(lái)實(shí)現(xiàn);文本框的Text屬性用于設(shè)置或返回其上顯示的文本; Enabled屬性用于設(shè)置命令按鈕是否有效，單擊命令按鈕將觸發(fā)其Click事件。
根據(jù)題意，將一個(gè)List控件、一個(gè)命令按鈕和一個(gè)文本框控件添加到窗體中，列表框的名稱(chēng)為L(zhǎng)ist1，命令按鈕的名稱(chēng)為Command1、Caption屬性為“添加”，文本框的名稱(chēng)為T(mén)ext1、Text屬性為空。雙擊Command1進(jìn)入代碼窗口，編寫(xiě)如下代碼：
Private Sub Command1_Click()
List1.AddItem Text1.Text '單擊添加按鍵，將Text1中的字符寫(xiě)入List中
End Sub
Private Sub Text1_Change()
If Text1.Text = "" Then
Command1.Enabled = False '如果Text1中沒(méi)有字符，則Command1不可用
Else
Command1.Enabled = True '如果Text1中有字符，則Command1可用
End If
End Sub
Private Sub Text1_DblClick()
Text1.Text = "" '雙擊Text1，清空Text1
Command1.Enabled = False 'Command不可用
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
