4(1)在考生目錄下有一個工程文件sj3.vbp，窗體中有一個命令按鈕，標題為"向左移動"，名稱為Command1;還有一個計時器，名稱為Timer1。并給出了兩個事件過程，但并不完整，要求：

　　設置計時器的屬性，使其在初始狀態不計時;設置計時器的屬性，使其每隔0.3秒調用Timer1事件過程一次。

　　去掉程序中的注釋符"'"，把程序中的"?"改為正確的內容，使得在運行時單擊"向左移動"按鈕，則按鈕每隔0.3秒向左移動一次，當移出窗體時返回窗體的右端，如圖47-5所示。

　　圖47-5

　　注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　(2)在考生文件夾中有文件sj4.vbp及其窗體文件sj4.frm，窗體已經設計好，要求考生用If語句編寫程序，使得程序運行時，滿足下列要求。不得使用任何變量。存盤時不得改變文件夾和文件名。

　　本題描述如下：

　　窗體上有兩個復選框，名稱分別為Check1和Check2，標題分別為"英語"和"德語";兩個單選按鈕，名稱分別為Option1和Option2，標題分別為"我會"和"我不會";一個名稱為Label1的標簽;一個名稱為Command1、標題為"輸出"的命令按鈕。要求程序運行后，對復選框和單選按鈕進行選擇，然后單擊按鈕，可根據下表的規定在標簽中顯示相應的信息：

　　選擇項 標簽中顯示的信息

　　Check1、Check2、Option1 我既會英語也會德語

　　Check1、Option1 我只會英語

　　Check2、Option1 我只會德語

　　Check1、Check2、Option2 我既不會英語也不會德語

　　Check1、Option2 我不會英語

　　Check2、Option2 我不會德語

　　程序運行時的界面如圖47-6所示。

　　圖47-6

　　參考解析：

　　(1)本題考查計時器控件(Timer)、命令按鈕控件(CommandButton)的常用屬性和事件，以及編寫簡單事件過程。

　　計時器只在設計時可見，計時器是否啟用由其Enabled屬性設置，值為True或False。啟用后間隔多長時間觸發一次其Timer事件由其Interval屬性設置，Interval屬性的單位為毫秒，缺省值為0，此時計時器也不啟用。

　　控制命令按鈕向左移動可通過修改其Left屬性值實現，當Left屬性值超過窗體的Width屬性值時表示按鈕已移出窗體，此時Left屬性值設為0即可將按鈕返回窗體右端。移動按鈕的事件過程均在計時器的Timer中實現。

　　根據題意，將一個命令按鈕和一個計時器控件添加到窗體中，命令按鈕的名稱為Command1、Caption屬性為"向左移動"，Timer的名稱為Timer1。雙擊Command1進入代碼編寫窗口，Timer1將隔一個周期調用Timer函數一次，而按下Command1將啟動Timer1計時器，即設置其周期，補充后的具體代碼如下：

　　Private Sub Command1_Click()

　　Timer1.Interval = 300 '設置Timer的周期

　　End Sub

　　Private Sub Timer1_Timer()

　　Command1.Left = Command1.Left - 100 'Command向左移動

　　If Command1.Left < 0 Then

　　Command1.Left = Form1.Width - Command1.Width

　　'當移動出最左端時，Command返回窗體最右端

　　End If

　　End Sub

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

　　(2)本題主要考查復選框(CheckBox)和單選按鈕(OptionButton)，以及用IF語句編程的綜合運用。

　　復選框組常用于提供多重選擇，Value屬性值決定每個復選框的選中狀態：0表示未選;1表示選中;2表示不可用(即灰色);單選按鈕組常用于提供唯一選擇，Value屬性值決定每個單選按鈕的選中狀態：False表示未選、True表示選中。

　　根據題意，窗體已設計好，只要考生編寫相應的代碼以實現其功能。雙擊Command1進入代碼窗口，編寫如下代碼：

　　Private Sub Command1_Click()

　　If Option1.Value = True Then '選擇Option1

　　If Check1.Value = 1 And Check2.Value = 1 Then

　　Label1.Caption = "我既會" + Check1.Caption + "也會" + Check2.Caption

　　ElseIf Check1.Value = 1 Then

　　Label1.Caption = "我只會" + Check1.Caption '顯示我只會英語

　　ElseIf Check2.Value = 1 Then

　　Label1.Caption = "我只會" + Check2.Caption '顯示我只會德語

　　End If

　　Else '選擇Option2

　　If Check1.Value = 1 And Check2.Value = 1 Then

　　Label1.Caption = "我既不會" + Check1.Caption + "也不會" + Check2.Caption

　　ElseIf Check1.Value = 1 Then

　　Label1.Caption = "我不會" + Check1.Caption '顯示我不會英語

　　ElseIf Check2.Value = 1 Then

　　Label1.Caption = "我不會" + Check2.Caption '顯示我不會德語

　　End If

　　End If

　　End Sub

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

　　相關推薦：

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

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

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

　　2015年計算機二級《C語言》沖刺試題及答案匯總