2012年計(jì)算機(jī)二級(jí)VB上機(jī)試題及解題思路第40套

　　1. 基本操作(2小題，每小題15分，共計(jì)30分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。

　　(1)在名稱(chēng)為Form1的窗體上畫(huà)三個(gè)單選按鈕，其名稱(chēng)分別為Option1、Option2和Option3(如圖1所示)，然后通過(guò)屬性窗口設(shè)置窗體和單選按鈕的屬性，

　　實(shí)現(xiàn)如下功能：

　　1)窗體標(biāo)題為“設(shè)置單選按鈕屬性”

　　2)三個(gè)單選按鈕的標(biāo)題分別為“按鈕1”、“按鈕2”和“按鈕3”

　　3)初始狀態(tài)為，第一個(gè)單選按鈕為“選中”

　　4)程序運(yùn)行后，第二個(gè)單選按鈕“禁用”

　　5)程序運(yùn)行后，第三個(gè)單選按鈕不可見(jiàn)

　　程序的運(yùn)行情況如圖 2所示。

　　要求：

　　不編寫(xiě)任何代碼。

　　*注意：

　　存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件

　　名為sjt1.frm。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。

　　在該窗體上畫(huà)三個(gè)單選按鈕控件，通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為Option1、Option2和Option3，標(biāo)題(Caption屬性)分別設(shè)為“按鈕1”、“按鈕2”和“按鈕3”，“按鈕1”復(fù)選框處在選中狀態(tài)(Value屬性)設(shè)為1，“按鈕2”可用狀態(tài)(Enabled屬性)設(shè)為T(mén)rue，“按鈕3”復(fù)選框處在不可見(jiàn)狀態(tài)(Visible屬性)設(shè)為False。激活Form1窗體，通過(guò)其屬性窗口將標(biāo)題(Caption屬性)設(shè)為“設(shè)置單選按鈕屬性”。

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt1.vbp文件并運(yùn)行。

　　(2)在名稱(chēng)為 Form1的窗體上畫(huà)一個(gè)命令按鈕和一個(gè)垂直滾動(dòng)條，其名稱(chēng)分別為Command1和VScroll1，編寫(xiě)適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果單擊命令按鈕，則按如下要求設(shè)置垂直滾動(dòng)條的屬性：

　　Max = 窗體高度

　　Min = 0

　　LargeChange = 50

　　SmallChange = 10

　　如果移動(dòng)垂直滾動(dòng)條的滾動(dòng)框，則在窗體上顯示滾動(dòng)框的位置值。

　　程序的運(yùn)行情況如圖所示。

　　要求：

　　不得使用任何變量。

　　*注意：

　　存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，創(chuàng)建一個(gè)Form1窗體。

　　在該窗體上畫(huà)一個(gè)命令按鈕控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為Command1。畫(huà)一個(gè)垂直滾動(dòng)條控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為VScroll1。

　　單擊命令按鈕(即運(yùn)行Click事件過(guò)程)，在該Click事件過(guò)程中加入語(yǔ)句：

　　Private Sub Command1_Click()

　　VScroll1.Max = Form1.Height

　　VScroll1.Min = 0

　　VScroll1.LargeChange = 50

　　VScroll1.SmallChange = 10

　　End Sub

　　移動(dòng)滾動(dòng)框(即運(yùn)行Change事件過(guò)程)，在該Change事件過(guò)程中加入語(yǔ)句：

　　Private Sub VScroll1_Change()

　　Print VScroll1.Value

　　End Sub

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開(kāi)sjt2.vbp文件并運(yùn)行。

　　相關(guān)推薦：

　　2012年計(jì)算機(jī)等考四級(jí)數(shù)據(jù)庫(kù)工程師備考筆記匯總

　　2012年計(jì)算機(jī)等級(jí)考試二級(jí)VB重點(diǎn)知識(shí)匯總

　　2012年下半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口匯總