三、簡單應用題

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

　　圖26-3

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

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

　　圖26-4

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

　　參考解析：

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

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

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

　　Private Sub List1_DblClick()

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

　　'將選中的項加到Text1中顯示

　　List1.RemoveItem List1.ListIndex '刪除選中項

　　End Sub

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

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

　　根據題意，將一個標簽、兩個命令按鈕和一個計時控件添加到窗體中，標簽的名稱為Label1、Caption屬性為60，命令按鈕的名稱分別為Command1和Command2，Caption屬性分別為"開始"和"停止"，Timer的名稱為Timer1。雙擊Command1進入代碼窗口，補充后的代碼如下：

　　Private Sub Command1_Click()

　　Timer1.Interval = 1000 '將Timer1的間隔設為1秒

　　End Sub

　　Private Sub Command2_Click()

　　Timer1.Interval = 0 '將Timer1的間隔設為0

　　End Sub

　　Private Sub Timer1_Timer()

　　Label1.Caption = Val(Label1.Caption) - 1 '每個間隔Label1的計數減1

　　If Label1.Caption = 0 Then

　　Label1.Caption = 60 '當Label1的計數等于0時，Label1重新回到60

　　End If

　　End Sub

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

　　相關推薦：

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

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

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

　　2015年9月計算機等級考試各科目考前必做試題