在即將到來的全國計(jì)算機(jī)等級(jí)考試之時(shí)，小編為廣大計(jì)算機(jī)等級(jí)考試的考生匯總整理了計(jì)算機(jī)二級(jí)VB考試試題，在計(jì)算機(jī)培訓(xùn)欄目中還有一級(jí)和三級(jí)的考試輔導(dǎo)資料，想獲得更多的資料，請(qǐng)點(diǎn)擊唯學(xué)網(wǎng)計(jì)算機(jī)培訓(xùn)欄目，祝考生能順利通過考試。

試題答案及詳解

一、基本操作題

第 1 小題

【審題分析】本題需在命令按鈕的單擊事件過程中，通過修改文本框的 FontName 屬性值為"楷體_GB2312"來改變文本框中文本的字體。

【操作步驟】

步驟 1：新建一個(gè)"標(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; 要在單擊一次窗體后，命令按鈕同時(shí)向右、向下移動(dòng) 100，需在窗體的單擊事件過程中， 設(shè)置命令按鈕的 Top 屬性值和 Left 屬性值各增加 100。

【操作步驟】

步驟 1：新建一個(gè)"標(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)行時(shí)能每隔 1 秒，標(biāo)簽中的數(shù)字加 1，需將計(jì)時(shí)器的 Interval 屬性值設(shè)置為 1000 毫秒，Enabled 屬性值設(shè)置為 True，在計(jì)時(shí)器的 Timer 事件過程中將標(biāo)簽中的數(shù)值加 1。

【操作步驟】

步驟 1：新建一個(gè)"標(biāo)準(zhǔn) EXE"工程，按表 50-3 在窗體中畫出控件并設(shè)置其相關(guān)屬

表 50-3

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

參考代碼：

Private Sub Tmr1_Timer()

Lab1.Caption = Lab1.Caption + 1

End Sub

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

第 2 小題

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

【操作步驟】

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

表 50-4

步驟 2：打開代碼編輯窗口，去掉程序中的注釋符"’"，將問號(hào)"?"改為正確的內(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ì)一個(gè)簡單的乘法運(yùn)算，為避免不必要的錯(cuò)誤，可在執(zhí)行運(yùn)算前用 Val 函數(shù)將文本框中數(shù)字字符串轉(zhuǎn)換為數(shù)值數(shù)據(jù)。

【操作步驟】

步驟 1：新建一個(gè)"標(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：按要求將文件保存至考生文件夾中。

請(qǐng)參加2014年計(jì)算機(jī)等級(jí)考試的考生能仔細(xì)閱讀，如若獲知更多關(guān)于 計(jì)算機(jī)等級(jí)考試培訓(xùn)的資訊，請(qǐng)隨時(shí)關(guān)注唯學(xué)網(wǎng)計(jì)算機(jī)培訓(xùn)欄目，小編會(huì)為您在第一時(shí)間做出相關(guān)報(bào)道。