在即將到來的全國計(jì)算機(jī)等級考試之時，小編為廣大計(jì)算機(jī)等級考試的考生匯總整理了計(jì)算機(jī)二級VB考試試題，在計(jì)算機(jī)培訓(xùn)欄目中還有一級和三級的考試輔導(dǎo)資料，想獲得更多的資料，請點(diǎn)擊唯學(xué)網(wǎng)計(jì)算機(jī)培訓(xùn)欄目，�？忌茼樌ㄟ^考試。
試題答案及詳解
一、基本操作題
第 1 小題
【審題分析】本題需在命令按鈕的單擊事件過程中，通過修改文本框的 FontName 屬性值為"楷體_GB2312"來改變文本框中文本的字體。
【操作步驟】
步驟 1：新建一個"標(biāo)準(zhǔn) EXE"工程，按表 50-1 在窗體中畫出控件并設(shè)置其相關(guān)屬性。
表 50-1
步驟 2：打開代碼編輯窗口，編寫命令按鈕的單擊事件過程。
參考代碼：
Private Sub Cmd1_Click()
Txt1.FontName = "楷體_GB2312"
End Sub
步驟 3：按要求將文件保存至考生文件夾中。
第 2 小題
【審題分析】要使命令按鈕位于窗體左上角需將其 Top 屬性值和 Left 屬性值設(shè)置為 0; 要在單擊一次窗體后，命令按鈕同時向右、向下移動 100，需在窗體的單擊事件過程中， 設(shè)置命令按鈕的 Top 屬性值和 Left 屬性值各增加 100。
【操作步驟】
步驟 1：新建一個"標(biāo)準(zhǔn) EXE"工程，按表 50-2 在窗體中畫出控件并設(shè)置其相關(guān)屬性。
表 50-2
步驟 2：打開代碼編輯窗口，編寫命令按鈕的 Click 事件過程。
參考代碼：
PrivateSub Cmd1_Click()
Cmd1.Left=Cmd1.left+100
Cmd1.Top=Cmd1.Top+100
End Sub
步驟 3：按要求將文件保存至考生文件夾中。
二、簡單應(yīng)用題
第 1 小題
【審題分析】根據(jù)題目要求，要在程序運(yùn)行時能每隔 1 秒，標(biāo)簽中的數(shù)字加 1，需將計(jì)時器的 Interval 屬性值設(shè)置為 1000 毫秒，Enabled 屬性值設(shè)置為 True，在計(jì)時器的 Timer 事件過程中將標(biāo)簽中的數(shù)值加 1。
【操作步驟】
步驟 1：新建一個"標(biāo)準(zhǔn) EXE"工程，按表 50-3 在窗體中畫出控件并設(shè)置其相關(guān)屬
表 50-3
步驟 2：雙擊窗體上的計(jì)時器控件，在其 Timer 事件過程中加入以下代碼：
參考代碼：
Private Sub Tmr1_Timer()
Lab1.Caption = Lab1.Caption + 1
End Sub
步驟 3：按要求將文件保存至考生文件夾中。
第 2 小題
【審題分析】本題源程序在命令按鈕的單擊事件過程中，首先利用 For 循環(huán)語句(循 環(huán)變 k 的初值為 0，終值為 3)逐一檢查單選按鈕數(shù)組中的每個元素是否被選中，若選 中則用變 n 記錄下選中單選按鈕的索引號，即 n=k。循環(huán)結(jié)束后，取消對當(dāng)前選中單選按鈕的選擇，且變 n 增 1;接著判斷 n 的值是否為 4，若是則將 n 的值置為 0，重新從 單選按鈕數(shù)組的第 1 個元素開始;最后設(shè)置索引號為 n 的單選按鈕被選中。
【操作步驟】
步驟 1：打開考生文件中的本題工程文件 vbsj4.vbp，按表 50-4 在窗體中用"復(fù)制" 和"粘貼"命令畫出包含 4 個元素的單選數(shù)組和 1 個命令按鈕并設(shè)置屬性。
表 50-4
步驟 2：打開代碼編輯窗口，去掉程序中的注釋符"’"，將問號"?"改為正確的內(nèi)容。
參考代碼：
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：按要求將文件保存至考生文件夾中。
三、綜合應(yīng)用題
【審題分析】本題其實(shí)就是設(shè)計(jì)一個簡單的乘法運(yùn)算，為避免不必要的錯誤，可在執(zhí)行運(yùn)算前用 Val 函數(shù)將文本框中數(shù)字字符串轉(zhuǎn)換為數(shù)值數(shù)據(jù)。
【操作步驟】
步驟 1：新建一個"標(biāo)準(zhǔn) EXE"工程，按表 50-5 在窗體中畫出控件并設(shè)置其相關(guān)屬性。
表 50-5
步驟 2：打開代碼編輯窗口，編寫"總價(jià)"命令按鈕的單擊事件過程。
參考代碼：
Private Sub Cmd1_Click()
Dim num As Integer
Dim rmb As Currency
num = Val(Txt1.Text)
rmb = Val(Txt2.Text)
Pic1.Cls
Pic1.Print num * rmb
End Sub
步驟 3：按要求將文件保存至考生文件夾中。
請參加2014年計(jì)算機(jī)等級考試的考生能仔細(xì)閱讀，如若獲知更多關(guān)于 計(jì)算機(jī)等級考試培訓(xùn)的資訊，請隨時關(guān)注唯學(xué)網(wǎng)計(jì)算機(jī)培訓(xùn)欄目，小編會為您在第一時間做出相關(guān)報(bào)道。
