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

　　(1)在名稱為Form1的窗體上畫3個(gè)標(biāo)簽，名稱分別為Label1、Label2和Label3，標(biāo)題分別為"人數(shù)"、"年齡"和"收入"，3個(gè)文本框，名稱分別為Text1、Text2和Text3，Text屬性均為空，一個(gè)命令按鈕，名稱為Command1，標(biāo)題為"輸入"。然后編寫命令按鈕的Click事件過程， 要求程序運(yùn)行后，如果單擊命令按鈕，則先后顯示3個(gè)輸入對(duì)話框，在3個(gè)輸入對(duì)話框中分別輸入人數(shù)、年齡和收入，并分別在3個(gè)文本框中顯示出來。程序運(yùn)行界面如圖4-1所示。要求程序中不得使用任何變量。

　　圖4-1

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

　　(2)在名稱為Form1的窗體上畫一個(gè)圖片框，名稱為Pic1，一個(gè)水平滾動(dòng)條，名稱為HScroll1，通過"屬性"窗口在圖片框中裝入一個(gè)圖形(文件名為pic1.jpg，位于考生文件夾下)，圖片框的高度與圖形的高度相同，圖片框的寬度任意，運(yùn)行時(shí)的窗體如圖4-2所示。編寫適當(dāng)?shù)氖录^程，要求程序運(yùn)行后，圖片的寬度隨滾動(dòng)條變化。即設(shè)置水平滾動(dòng)條的如下屬性：Min為200，Max為2000，LargeChange為200，然后就可以通過移動(dòng)滾動(dòng)條上的滾動(dòng)塊來放大或縮小圖片框的寬度。拖動(dòng)滾動(dòng)條后的窗體如圖4-3所示。要求程序中不得使用任何變量。

　　 圖4-2

　　 圖4-3

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

　　參考解析：

　　(1)本題主要考查利用InputBox函數(shù)的用法。根據(jù)題意，新建"標(biāo)準(zhǔn)EXE"工程，在名稱為Form1的窗體上畫3個(gè)標(biāo)簽，名稱分別為Label1、Label2和Label3，標(biāo)題分別為"人數(shù)"、"年齡"和"收入"，3個(gè)文本框，名稱分別為Text1、Text2和Text3，Text屬性均為空白，一個(gè)命令按鈕，名稱為Command1，標(biāo)題為"輸入"。雙擊Command1進(jìn)入代碼編寫窗口，代碼如下：

　　Private Sub Command1_Click()

　　Text1.Text = Val(InputBox("請(qǐng)輸入人數(shù)"))

　　Text2.Text = Val(InputBox("請(qǐng)輸入年齡"))

　　Text3.Text = Val(InputBox("請(qǐng)輸入收入"))

　　End Sub

　　單擊按鈕運(yùn)行程序，并按要求保存。

　　(2)根據(jù)題意，新建"標(biāo)準(zhǔn)EXE"工程，在名稱為Form1的窗體上畫一個(gè)圖片控件，名稱為Pic1，再畫一個(gè)水平滾動(dòng)條控件，名稱為HScroll1，Min屬性為200，Max屬性為2000，LargeChange為200。圖片的寬度與HScroll1有關(guān)，具體代碼如下：

　　Private Sub Form_Load() '初始化

　　Pic1.Width = HScroll1.Value

　　End Sub

　　Private Sub HScroll1_Change() '當(dāng)拖動(dòng)水平滾動(dòng)條時(shí)的處理函數(shù)

　　Pic1.Width = HScroll1.Value

　　End Sub

　　單擊按鈕運(yùn)行程序，并按要求保存。

　　相關(guān)推薦：

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總

　　2015年計(jì)算機(jī)二級(jí)考試《VB》考前預(yù)測(cè)試卷匯總

　　2015年9月計(jì)算機(jī)等級(jí)考試各科目考前必做試題

　　2015年計(jì)算機(jī)二級(jí)《C語言》沖刺試題及答案匯總