三、綜合應(yīng)用題

　　5在考生文件夾下有一個工程文件sj5.vbp，其窗體上有一個命令按鈕，名稱為Command1、標題為"添加";一個文本框，名稱為Text1。程序運行前，文本框的編輯區(qū)為空白;一個列表框，名稱為List1。

　　在文本框中輸入文本，若單擊"添加"按鈕，文本框中的文本被作為一個列表項被加入到列表框中，如圖39-5所示。若雙擊文本框，則使文本框中的內(nèi)容為空，且使"添加"按鈕變?yōu)闊o效。

　　圖39-5

　　要求：去掉程序中的注釋符"'"，把程序中的"?"改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性，最后把修改后的文件以原來的文件名存盤。

　　參考解析：

　　本題重點考查列表框控件 的使用及命令按鈕的事件和屬性設(shè)置。

　　列表框控件用于提供可進行單一或多個選擇的列表項，給列表框添加列表項既可以在設(shè)計階段通過其List屬性設(shè)置加入，也可在程序運行時通過代碼“列表框名.AddItem"項目"”加入，清除列表框內(nèi)容可通過其Clear方法來實現(xiàn);文本框的Text屬性用于設(shè)置或返回其上顯示的文本; Enabled屬性用于設(shè)置命令按鈕是否有效，單擊命令按鈕將觸發(fā)其Click事件。

　　根據(jù)題意，將一個List控件、一個命令按鈕和一個文本框控件添加到窗體中，列表框的名稱為List1，命令按鈕的名稱為Command1、Caption屬性為“添加”，文本框的名稱為Text1、Text屬性為空。雙擊Command1進入代碼窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　List1.AddItem Text1.Text '單擊添加按鍵，將Text1中的字符寫入List中

　　End Sub

　　Private Sub Text1_Change()

　　If Text1.Text = "" Then

　　Command1.Enabled = False '如果Text1中沒有字符，則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

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

　　相關(guān)推薦：

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

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

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