2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)考試預(yù)測題及答案2

　　41

　　(1)在窗體上畫一個(gè)列表框，名稱為Lst1，通過屬性窗口向列表框中添加3個(gè)項(xiàng)目，分別為"Item1、"Item2"和"Item3"。編寫適當(dāng)?shù)氖录^程。使程序運(yùn)行后，如果雙擊Form1空白處，則清空列表框中的內(nèi)容。程序運(yùn)行時(shí)窗體界面如圖47-1和圖47-2所示。

　　圖47-1

　　圖47-2

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

　　(2)在窗體上畫兩個(gè)命令按鈕，名稱分別為Command1、Command2、標(biāo)題分別為"啟用"、"禁用"，一個(gè)名稱為Text1的Text控件。請(qǐng)編寫適當(dāng)?shù)氖录^程，使得程序在運(yùn)行時(shí)，單擊"啟用"按鈕，Text1會(huì)變?yōu)橛行�，而�?dāng)單擊"禁用"命令按鈕Text1變?yōu)闊o效。程序中不得使用任何變量，程序運(yùn)行時(shí)的窗體界面如圖47-3和圖47-4所示。

　　圖47-3

　　圖47-4

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

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

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

　　Private Sub Form_DblClick()

　　Dim i As Integer

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

　　List1.RemoveItem i '移除索引指定項(xiàng)

　　Next i

　　End Sub

　　單擊

　　按鈕運(yùn)行程序，并按要求保存。

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

　　要實(shí)現(xiàn)程序運(yùn)行時(shí)單擊某個(gè)按鈕使文本框變?yōu)闊o效，只需編寫該按鈕的Click事件過程中修改文本框的Enabled屬性值即可。

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

　　Private Sub Command1_Click()

　　Text1.Enabled = True '啟用Text1

　　End Sub

　　Private Sub Command2_Click()

　　Text1.Enabled = False '禁用Text1

　　End Sub

　　單擊

　　按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2014年全國計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)等考真題及答案通知

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題