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

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

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

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

　　(1)在名稱為 Form1的窗體上畫一個標(biāo)簽，其名稱為Label1，然后通過屬性窗口設(shè)置窗體和標(biāo)簽的屬性，實(shí)現(xiàn)如下功能：

　　1)窗體標(biāo)題為“設(shè)置標(biāo)簽屬性”

　　2)標(biāo)簽的位置為：距窗體左邊界500，距窗體頂邊界300

　　3)標(biāo)簽的標(biāo)題為“等級考試”

　　4)標(biāo)簽可以根據(jù)標(biāo)題的內(nèi)容自動調(diào)整其大小

　　5)標(biāo)簽帶有邊框

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

　　要求：

　　不編寫任何代碼。

　　*注意：

　　存盤時必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。

　　解題思路：

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

　　該窗體上畫一個標(biāo)簽控件，通過其屬性窗口將名稱設(shè)為Label1，距窗體左邊(Left屬性)設(shè)為500，距窗體頂 部(Top屬性)設(shè)為300，標(biāo)題(Caption屬性)設(shè)為“等級考試”，標(biāo)簽大小自動調(diào)整(AutoSize屬性)設(shè)為True， BorderStyle屬性設(shè)為1。激活Form1窗體，通過其屬性窗口將標(biāo)題(Caption屬性)設(shè)為“設(shè)置標(biāo)簽屬性”。

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

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

　　(2)在名稱為 Form1的窗體上畫一個命令按鈕和一個水平滾動條，其名稱分別 為Command1和HScroll1，編寫適當(dāng)?shù)氖录�過程。程序運(yùn)行后，如果單擊命令按鈕，則按如下要求設(shè)置水平滾動條的屬性：

　　Max = 窗體寬度

　　Min = 0

　　LargeChange = 50

　　SmallChange = 10

　　而如果移動水平滾動條的滾動框，則在窗體上顯示滾動框的位置值。

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

　　要求：

　　不得使用任何變量。

　　*注意：

　　存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件 名為sjt2.frm。

　　解題思路：

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

　　在該窗體上畫一個命令按鈕控件，通過其屬性窗口將名稱設(shè)為Command1。畫一個水平滾動條控件，通過其屬性窗口將名稱設(shè)為HScroll1。

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

　　Private Sub Command1_Click()

　　HScroll1.Max = Form1.Width

　　HScroll1.Min = 0

　　HScroll1.LargeChange = 50

　　HScroll1.SmallChange = 10

　　End Sub

　　移動水平滾動條的滾動框(即運(yùn)行Change事件過程)，在該Change事件過程中加入語句：

　　Private Sub HScroll1_Change()

　　Print Me.HScroll1.Value

　　End Sub

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

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

　　相關(guān)推薦：

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

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

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