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

　　第 1 小題

　　MousePointer 屬性的可選設(shè)置值及含義見表 56-3。

　　【審題分析】根據(jù)題目要求，要使鼠標(biāo)指針移動到標(biāo)簽數(shù)組各元素上時(shí)，鼠標(biāo)指針的形狀變成各控件元素的標(biāo)題所代表的鼠標(biāo)指針形狀，就需在標(biāo)簽數(shù)組的 MouseMove 事件過程中，根據(jù)鼠標(biāo)當(dāng)前所在標(biāo)簽數(shù)組元素的不同，將窗體的 MousePointer 屬性設(shè)置為對應(yīng)值。題目源程序使用 Select Case 語句來對標(biāo)簽數(shù)組不同索引號(即 Index 屬性值)進(jìn)行分別處理。要在鼠標(biāo)指針離開控件元素時(shí)，鼠標(biāo)指針又變成正常情況下的箭頭形狀，需在窗體的MouseMove 事件過程中，設(shè)置窗體的 MousePointer 屬性值為 0。

　　【操作步驟】

　　步驟 1：打開考生文件中的本題工程文件 vbsj3.vbp，在代碼編輯窗口，去掉程序中的注釋符’，將問號?改為正確的內(nèi)容。

　　參考代碼：

　　Form1.MousePointer = 0

　　Select Case Index

　　步驟 2：按要求將文件保存至考生文件夾中。

　　第 2 小題

　　【知識點(diǎn)播】+可用于字符串的運(yùn)算，用于連接兩個(gè)字符串。

　　【審題分析】根據(jù)題目要求，本題程序設(shè)計(jì)思路：在確定按鈕的 Click 事件過程中分別以 Opt1 和 Opt2 是否選中作為 If 語句的條件，當(dāng) Opt1 被選中時(shí)，將兩個(gè)文本框中的內(nèi)容通過一個(gè)中間變 進(jìn)行交換;當(dāng) Opt2 被選中將兩個(gè)文本框中的內(nèi)容連接進(jìn)來。

　　【操作步驟】

　　步驟 1：打開考生文件夾下的本題工程文件 vbs4.vbp。

　　步驟 2：在窗體 Form1 中加入兩個(gè)文本框、一個(gè)標(biāo)簽、兩個(gè)單選按鈕和一個(gè)命令按鈕，分別設(shè)置它們的相關(guān)屬性，屬性及其值見表 56-4。

　　步驟 3：打開代碼編輯窗口輸入如下代碼：

　　參考代碼：

　　Private Sub Cmd1_Click()

　　Dim str As String

　　If Opt1.Value = True Then

　　str = Txt1.Text

　　Txt1.Text = Txt2.Text

　　Txt2.Text = str

　　Lab1.Caption = 交換成功

　　End If

　　If Opt2.Value = True Then

　　Lab1.Caption = Txt1.Text + Txt2.Text

　　End If

　　End Sub

　　步驟 4：按要求將文件保存至考生文件夾中。

　　【考試誤區(qū)】在一個(gè)容器中的多個(gè)單選按鈕只能有一個(gè)被選中，由此分出不同分支，理清思路是關(guān)鍵。

　　編輯推薦：

　　2014年上半年計(jì)算機(jī)等級考試報(bào)名時(shí)間及入口專題

　　各地2014年計(jì)算機(jī)等級考試費(fèi)用匯總

　　2014年計(jì)算機(jī)等級考試時(shí)間