試題答案及詳解
一、基本操作題
第 1 小題
【審題分析】要實現(xiàn)本題所要求的功能應(yīng)在"左端"、"居中"和"右端"3 個命令按鈕的單擊事件過程中,設(shè)置水平滾動條的 Value 屬性值分別與其 Min 屬性值、Max 屬性值及 Max/2 值一致。
【操作步驟】
步驟 1:新建一個"標(biāo)準(zhǔn) EXE"工程,按表 55-1 在窗體中畫出控件并設(shè)置其相關(guān)屬性。
表 55-1
步驟 2:在代碼編輯窗口,編寫 3 個按鈕的單擊事件過程。
步驟 3:按要求將文件保存至考生文件夾中。
【特別提示】如果水平滾動條的 Min 屬性值不為 0 時,居中時應(yīng)設(shè)置 Value 屬性值為(Max+Min)/2。
第 2 小題
【審題分析】要實現(xiàn)本題中的功能,應(yīng)在"體育"按鈕的 Click 事件過程中,用 Print語句在窗體上輸出"我喜歡體育",在"美術(shù)"按鈕的 Click 事件過程中,用 Print 語句在窗體上輸出"我喜歡美術(shù)"。
【操作步驟】
步驟 1:新建一個"標(biāo)準(zhǔn) EXE"工程,在窗體 Form1 中加入兩個命令按鈕,分別設(shè)置它們的相關(guān)屬性,其屬性及其值見表 55-2。
表 55-2
步驟 2:單擊窗體 Form1 中的"體育"按鈕,在打開的代碼編輯窗口中,輸入代碼:Print "我喜歡體育"。
步驟 3:單擊代碼編輯窗口中的對象下拉列表框,從中選擇 Cmd2,在其 Click 事件過程中輸入代碼:Print "我喜歡美術(shù)"。
步驟 4:按要求將文件保存至考生文件夾中。
二、簡單應(yīng)用題
第 1 小題
【審題分析】本題其實就是編寫"確定"按鈕的單擊事件過程。設(shè)計思路:由于單選按鈕數(shù)組選擇的惟一性,可用一個 If?Then?Else 語句對可能出現(xiàn)的兩種情況(Opt1 或Opt2 被選中)分別進(jìn)行處理,為 Txt1 的 FontName 屬性設(shè)置不同值;對于兩個復(fù)選框可用兩個 If?Then?Else 語句依次對其選中情況進(jìn)行處理,若選中則將對應(yīng)的 FontUnderline屬性值或 FontItalic 屬性值設(shè)置為 True,否則設(shè)置為 False。
【操作步驟】
步驟 1:打開考生文件下的本題工程文件 vbs3.vbp,在第一個框架中畫兩個單選按鈕和第二個框架中畫兩個復(fù)選框,其屬性及其值見表 55-3。
表 55-3
步驟 2:打開代碼編輯窗口,編寫"確定"按鈕的 Click 事件過程,代碼如下。
參考代碼:
Private Sub Cmd1_Click()
If Opt1.Value = True Then
Txt1.FontName = "宋體"
Else
Txt1.FontName = "隸書"
118
End If
If Chk1.Value = 1 Then
Txt1.FontUnderline = True
Else
Txt1.FontUnderline = False
End If
If Chk2.Value = 1 Then
Txt1.FontItalic = True
Else
Txt1.FontItalic = False
End If
End Sub
步驟 3:按要求將文件保存至考生文件夾中。
第 2 小題
【審題分析】本題利用計時器來控制紅、黃、綠燈間的循環(huán)切換。在"開始"按鈕的單擊事件過程中,將根據(jù)兩個水平滾動條的 Value 屬性值,來分別設(shè)定紅燈和綠燈亮的時間數(shù)(用變 red 和 green 記錄)。在每次觸發(fā)的計時器 Timer 事件時,首先判斷當(dāng)前紅燈是否亮(即 PicR 是否顯示),若紅燈亮則將設(shè)定的紅燈時間 red 減 1,并再次判斷 red 的值是否為 0,若為 0 則紅燈滅黃燈亮(即 PicR 不顯示,PicY 顯示);如果當(dāng)前是黃燈亮(即PicY 顯示),則黃燈滅(即 PicY 不顯示),此時若 red 為 0,則綠燈亮(即 PicG 顯示)且重新設(shè)定 red,否則紅燈亮(即 PicR 顯示)且重新設(shè)定 green;如果當(dāng)前是綠燈亮(即 PicG顯示),則將設(shè)定的綠燈時間 green 減 1,并再次判斷 green 的值是否為 0,若為 0 則綠燈滅黃燈亮(即 PicG 不顯示,PicY 顯示)。
【操作步驟】
步驟 1:打開考生文件中的本題工程文件 vbsj4.vbp,在代碼編輯窗口,去掉程序中的注釋符"’",將問號"?"改為正確的內(nèi)容。
參考代碼:
red = Hsb1.Value
Tmr1.Enabled = True
PicR.Visible = False
green = green-1
步驟 2:按要求將文件保存至考生文件夾中。
編輯推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |