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

　　


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

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

　　**********************************************************************

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

　　(1)在名稱為Form1 的窗體上畫兩個(gè)命令按鈕，其名稱分別為Command1和Command2，標(biāo)題分別為“擴(kuò)大”和“移動(dòng)”。如圖所示，編寫適當(dāng)?shù)氖录�過程。程序運(yùn)行后，如果單擊Command1命令按鈕，則使窗體在高、寬方向上各增加0.2倍(變?yōu)樵瓉淼?.2倍);如果單擊Command2命令按鈕，則使窗體向右移動(dòng)200，向下移動(dòng)100。

　　要求：

　　程序中不得使用變量。

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

　　解題思路：

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

　　該窗體上畫二個(gè)命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為Command1、Command2，標(biāo)題(Caption屬性)分別設(shè)為“擴(kuò)大”和“移動(dòng)”。

　　單擊“擴(kuò)大”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語(yǔ)句：

　　Private Sub Command1_Click()

　　Height = 1.2 * Height

　　Width = Width * 1.2

　　End Sub

　　單擊“移動(dòng)”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語(yǔ)句：

　　Private Sub Command2_Click()

　　Left = 200 + Left

　　Top = Top + 100

　　End Sub

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

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

　　**********************************************************************

　　(2)在名稱為 Form1的窗體上畫一個(gè)標(biāo)簽，其名稱為L(zhǎng)abel1，標(biāo)題為“計(jì)算機(jī)等級(jí)考試”，Left屬性為0; 再畫一個(gè)水平滾動(dòng)條，其名稱為HScroll1，在屬性窗口中設(shè)置其屬性如下：

　　Min 0

　　Max 3000

　　SmallChange 10

　　LargeChange 100

　　編寫適當(dāng)?shù)氖录�過程。程序運(yùn)行后，如果移動(dòng)滾動(dòng)條上的滾動(dòng)框，則可使標(biāo)簽向相應(yīng)的方向移動(dòng)，標(biāo)簽距窗體左邊框的距離等于滾動(dòng)框的位置，程序的運(yùn)行情況如圖所示。

　　要求：

　　程序中不得使用變量，每個(gè)事件過程中只能寫一條語(yǔ)句。

　　注意：

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

　　解題思路：

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

　　在該窗體上畫一個(gè)標(biāo)簽控件，通過其屬性窗口將名稱設(shè)為L(zhǎng)abel1，標(biāo)題(Caption屬性)設(shè)為“計(jì)算機(jī)等級(jí)考試”，Left屬性設(shè)為0。畫一個(gè)水平滾動(dòng)條控件，通過其屬性窗口將名稱設(shè)為HScroll1，Min屬性設(shè)為0，Max屬性設(shè)為3000，SmallChange屬性設(shè)為10，LargeChange屬性設(shè)為100。

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

　　Private Sub HScroll1_Scroll()

　　Label1.Left = Form1.HScroll1

　　End Sub

　　單擊滾動(dòng)條上的方向按鈕(即運(yùn)行Click事件過程)也能實(shí)現(xiàn)題目所要求的功能，在該Click事件過程中加入語(yǔ)句：

　　Private Sub HScroll1_Change()

　　Label1.Left = Me.HScroll1

　　End Sub

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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開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í)間及入口匯總