二、簡單應用題

　　第 1 小題

　　【審題分析】根據題目要求，要在程序運行時能每隔 1 秒，標簽中的數字加 1，需將計時器的 Interval 屬性值設置為 1000 毫秒，Enabled 屬性值設置為 True，在計時器的 Timer 事件過程中將標簽中的數值加 1。

　　105

　　′ó?ò??ì3?????úμè????ê?ר?? http://club.topsage.com/forum-49-1.html ê??ˉ??àí 屬性。

　　【操作步驟】

　　步驟 1：新建一個"標準 EXE"工程，按表 50-3 在窗體中畫出控件并設置其相關屬

　　表 50-3

　　步驟 2：雙擊窗體上的計時器控件，在其 Timer 事件過程中加入以下代碼：

　　參考代碼：

　　Private Sub Tmr1_Timer()

　　Lab1.Caption = Lab1.Caption + 1

　　End Sub

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

　　第 2 小題

　　【審題分析】本題源程序在命令按鈕的單擊事件過程中，首先利用 For 循環(huán)語句(循 環(huán)變 k 的初值為 0，終值為 3)逐一檢查單選按鈕數組中的每個元素是否被選中，若選 中則用變 n 記錄下選中單選按鈕的索引號，即 n=k。循環(huán)結束后，取消對當前選中單選按鈕的選擇，且變 n 增 1;接著判斷 n 的值是否為 4，若是則將 n 的值置為 0，重新從 單選按鈕數組的第 1 個元素開始;最后設置索引號為 n 的單選按鈕被選中。

　　【操作步驟】

　　步驟 1：打開考生文件中的本題工程文件 vbsj4.vbp，按表 50-4 在窗體中用"復制" 和"粘貼"命令畫出包含 4 個元素的單選數組和 1 個命令按鈕并設置屬性。

　　表 50-4

　　步驟 2：打開代碼編輯窗口，去掉程序中的注釋符"’"，將問號"?"改為正確的內容。

　　參考代碼：

　　Private Sub Cmd1_Click()

　　For k = 0 To 3

　　If Opt1(k).Value Then

　　106

　　n

　　= k

　　End If

　　Next k

　　Opt1(n).Value = False

　　n = n + 1

　　If n = 4 Then

　　n = 0

　　End If

　　Opt1(n).Value = True

　　End Sub

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

　　編輯推薦：

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

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

　　2014年計算機等級考試時間