2請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼)。

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

　　圖4-1

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

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

　　 圖4-2

　　 圖4-3

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

　　參考解析：

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

　　Private Sub Command1_Click()

　　Text1.Text = Val(InputBox("請輸入人數"))

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

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

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

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

　　Private Sub Form_Load() '初始化

　　Pic1.Width = HScroll1.Value

　　End Sub

　　Private Sub HScroll1_Change() '當拖動水平滾動條時的處理函數

　　Pic1.Width = HScroll1.Value

　　End Sub

　　單擊按鈕運行程序，并按要求保存。

　　相關推薦：

　　2015年計算機二級考試《VB》考前練習題匯總

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015年9月計算機等級考試各科目考前必做試題

　　2015年計算機二級《C語言》沖刺試題及答案匯總