2014年計(jì)算機(jī)二級考試VB專家預(yù)測試卷及答案2

　　三、簡單應(yīng)用題

　　(1)本題主要考查列茅，框控件的使用。

　　列表框控件用于顯示可供單一或多個(gè)選擇的列表項(xiàng)。。給列表框添加列表項(xiàng)既可以在設(shè)計(jì)階段通過其List屬性設(shè)置加入(注意每輸入完一項(xiàng)后按Ctrl+Enter鍵換行再輸入下一項(xiàng))，也可以在程序運(yùn)行時(shí)通過代碼：列表框名.Addhem“項(xiàng)目”加入;List(Index)屬性用于設(shè)置或返回指定索引號的列表項(xiàng)的內(nèi)容;ListIn dex屬性用于設(shè)置或返回刈表框中當(dāng)前所選列表項(xiàng)的索引號;Sorted屬性用于設(shè)置或返回列表框中的列表項(xiàng)是否按字母順序排序，值為True時(shí)保持排序;RemoveItem方法用于刪除指定索引號的列表項(xiàng)。

　　根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)List控件和一個(gè)文本框控件添加到窗體上，列表框的名稱為List1，List屬性加入以下項(xiàng)“AAAAA”、“BBBBB”、“CCCCC”、“DDDDD”、“11111”、“22222”、“33333”和“44444”，文本框的名稱為Text1、MuhiLine屬性為True、ScrollBar屬性為2。雙擊List1進(jìn)入代碼編寫窗口，補(bǔ)充后的具體代碼如一：

　　Private Sub List1_DbtClick()

　　Text1.Text=Text1.Text+Listl.List(List1.ListIndex)+vbCrLf ’將選中的項(xiàng)加到Text1中顯 示

　　List1.Removehem List1.Listlndex’刪除選中項(xiàng)

　　End Sub

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

　　(2)本題主要考查計(jì)時(shí)器控件的使用。計(jì)時(shí)器是否啟用通過Enabled屬性設(shè)置，值為True時(shí)啟用，值為False不啟用。啟用后間隔多長時(shí)間觸發(fā)一次其Timer事件由其Interval屬性設(shè)置，Interval屬性的單位

　　為毫秒，缺省值為0，此時(shí)計(jì)時(shí)器也不啟用。

　　根據(jù)題意，將一個(gè)標(biāo)簽、兩個(gè)命令按鈕和一個(gè)計(jì)時(shí)控件添加到窗體中，標(biāo)簽的名稱為Label1、Caption屬性為60，命令按鈕的名稱分別為Command1和Command2，Caption屬性分別為“開始”和“停止”，Timer的名稱為Timer1。雙擊Commandl進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：

　　Private Sub Command1_Click()

　　Timer1.Interval=1000

　　’將Timer1的間隔_乏為l秒

　　End Sub

　　Private Sub Command2_Click()

　　Timer1.Interval=0 ’將Timer1的間隔設(shè)為0

　　End Sub

　　Private Sub Timer1_Timer()

　　Label1.Caption=Val(Label1.Caption)-1

　　’每個(gè)間隔Label1的計(jì)數(shù)減l

　　If Label1.Caption=0 Then

　　Label1.Caption=60

　　’當(dāng)Label1的計(jì)數(shù)等于0時(shí)，Label1重新回到60

　　End Sub

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

　　相關(guān)推薦：

　　2014年計(jì)算機(jī)等級考試時(shí)間調(diào)整通知

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

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

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