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

　　42(1)在窗體上建立一個(gè)名稱為List1的列表框和一個(gè)名為Text1的文本框。編寫程序，實(shí)現(xiàn)列表框和文本框中項(xiàng)目的交換。要求List1中的項(xiàng)目按字母升序排列，Text1中的項(xiàng)目按照加入的先后順序排列。當(dāng)雙擊List1某個(gè)項(xiàng)目時(shí)，該項(xiàng)目從列表框中消失，并出現(xiàn)在Text1中。程序運(yùn)行時(shí)的窗體界面如圖26-3所示。

　　圖26-3

　　注意：考生完成程序編寫后，將工程文件與窗體文件保存到考生文件夾下，文件名分別為sj3.vbp與sj3.frm。

　　(2)在考生文件夾下有一個(gè)工程文件sj4.vbp與窗體文件sj4.frm，在Form1的窗體中有一個(gè)標(biāo)簽、兩個(gè)命令按鈕和一個(gè)計(jì)時(shí)器。要求程序運(yùn)行時(shí)實(shí)現(xiàn)以下功能：單擊"開始"按鈕，就開始倒計(jì)數(shù)，每隔1秒，文本框中的數(shù)減1;單擊"停止"按鈕，則停止計(jì)數(shù)，初始計(jì)數(shù)為60，當(dāng)計(jì)數(shù)到0時(shí)，則重新從60開始倒計(jì)數(shù)。要求：修改適當(dāng)?shù)目丶膶傩�，并去掉程序中的注釋�?'"，把程序中的"?"改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。程序運(yùn)行效果如圖26-4所示。

　　圖26-4

　　注意：考生完成程序編寫后，將工程文件與窗體文件保存到考生文件夾下，文件名分別為sj4.vbp與sj4.frm。

　　參考解析：

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

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

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

　　Private Sub List1_DblClick()

　　Text1.Text = Text1.Text + List1.List(List1.ListIndex) + vbCrLf

　　'將選中的項(xiàng)加到Text1中顯示

　　List1.RemoveItem List1.ListIndex '刪除選中項(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。雙擊Command1進(jìn)入代碼窗口，補(bǔ)充后的代碼如下：

　　Private Sub Command1_Click()

　　Timer1.Interval = 1000 '將Timer1的間隔設(shè)為1秒

　　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ù)減1

　　If Label1.Caption = 0 Then

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

　　End If

　　End Sub

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

　　相關(guān)推薦：

　　2015年計(jì)算機(jī)等級(jí)考試時(shí)間安排(各地略有不同)

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總

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

　　2015年9月計(jì)算機(jī)等級(jí)考試各科目考前必做試題