第06套

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

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

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

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

　　(1)在名稱為Form1的窗體上畫兩個(gè)命令按鈕，其名稱分別為C1和C2，標(biāo)題分別為“命令按鈕1”和“命令按鈕2”， 通過屬性窗口設(shè)計(jì)適當(dāng)?shù)膶傩裕�使得程序運(yùn)行后，“命令按鈕2”隱藏。編寫適當(dāng)?shù)氖录�過程，使得單擊“命令按鈕1”，則“命令按鈕2”出現(xiàn)，“命令按鈕1”隱藏;而如果單擊“命令按鈕2”，則“命令按鈕1”出現(xiàn)，“命令按鈕2”隱藏。程序的運(yùn)行情況如圖所示。

　　注意：

　　程序中不得使用變量。

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

　　解題思路：

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

　　在該窗體上畫二個(gè)命令按鈕控件，通過其屬性窗口將名稱分別設(shè)為C1和C2，標(biāo)題(Caption屬性)分別設(shè)為“命令按鈕1”和“命令按鈕2”，將C2的Visible屬性為False。\單擊命令按鈕1(即運(yùn)行Click事件過程)，在該Click事件過程中加入語(yǔ)句：

　　Private Sub C1_Clickk()

　　C2.Visible = True

　　C1.Visible = False

　　End Sub

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

　　Private Sub C2_Clickk()

　　C1.Visible = True

　　C2.Visible = False

　　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è)列表框，其名稱為L(zhǎng)1;一個(gè)水平滾動(dòng)條，其名稱為HS1，SmallChange屬性為2， LargeChange屬性為10，Min屬性為0，Max屬性為100，編寫適當(dāng)?shù)氖录�過程。 程序運(yùn)行后，如果把滾動(dòng)框移到某個(gè)位置，然后單擊窗體， 則在列表框中添加一個(gè)項(xiàng)目，其內(nèi)容是“xx”，其中xx是滾動(dòng)框所在的位置，如圖所示。

　　注意：

　　程序中不要使用變量;存盤時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。

　　解題思路：

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

　　在該窗體上畫一個(gè)列表框控件，通過其屬性窗口將名稱設(shè)為L(zhǎng)1。畫一個(gè)水平滾動(dòng)條控件，通過其屬性窗口將名稱設(shè)為HS1，Min屬性設(shè)為0，Max屬性設(shè)為100，SmallChange屬性設(shè)為2，LargeChange屬性設(shè)為10。

　　單擊窗體(即運(yùn)行Click事件過程)，在該Click事件過程中加入語(yǔ)句：

　　Private Sub Form_Click()

　　L1.AddItem Str$(Form1.HS1)

　　End Sub