| 第 1 頁：基本操作題 |
| 第 3 頁：簡單應(yīng)用題 |
| 第 5 頁：綜合應(yīng)用題 |
2請根據(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è)輸入對話框，在3個(gè)輸入對話框中分別輸入人數(shù)、年齡和收入，并分別在3個(gè)文本框中顯示出來。程序運(yùn)行界面如圖4-1所示。要求程序中不得使用任何變量。
圖4-1
注意：存盤時(shí)必須存放在考生文件夾下，工程文件名為sj1.vbp，窗體文件名為sj1.frm。
(2)在名稱為Form1的窗體上畫一個(gè)圖片框，名稱為Pic1，一個(gè)水平滾動條，名稱為HScroll1，通過"屬性"窗口在圖片框中裝入一個(gè)圖形(文件名為pic1.jpg，位于考生文件夾下)，圖片框的高度與圖形的高度相同，圖片框的寬度任意，運(yùn)行時(shí)的窗體如圖4-2所示。編寫適當(dāng)?shù)氖录^程，要求程序運(yùn)行后，圖片的寬度隨滾動條變化。即設(shè)置水平滾動條的如下屬性：Min為200，Max為2000，LargeChange為200，然后就可以通過移動滾動條上的滾動塊來放大或縮小圖片框的寬度。拖動滾動條后的窗體如圖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("請輸入人數(shù)"))
Text2.Text = Val(InputBox("請輸入年齡"))
Text3.Text = Val(InputBox("請輸入收入"))
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
(2)根據(jù)題意，新建"標(biāo)準(zhǔn)EXE"工程，在名稱為Form1的窗體上畫一個(gè)圖片控件，名稱為Pic1，再畫一個(gè)水平滾動條控件，名稱為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)拖動水平滾動條時(shí)的處理函數(shù)
Pic1.Width = HScroll1.Value
End Sub
單擊按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2015年計(jì)算機(jī)二級考試《VB》考前練習(xí)題匯總
2015年計(jì)算機(jī)二級考試《VB》考前預(yù)測試卷匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
