二、簡單應用題

　　第 1 小題

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

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

　　【操作步驟】

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

　　參考代碼：

　　Form1.MousePointer = 0

　　Select Case Index

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

　　第 2 小題

　　【知識點播】+可用于字符串的運算，用于連接兩個字符串。

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

　　【操作步驟】

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

　　步驟 2：在窗體 Form1 中加入兩個文本框、一個標簽、兩個單選按鈕和一個命令按鈕，分別設置它們的相關屬性，屬性及其值見表 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：按要求將文件保存至考生文件夾中。

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

　　編輯推薦：

　　2014年上半年計算機等級考試報名時間及入口專題

　　各地2014年計算機等級考試費用匯總

　　2014年計算機等級考試時間