本系列資料由"韜略宏智" 授權(quán)發(fā)布,任何網(wǎng)站不得轉(zhuǎn)載,否則追究法律責任。

一、基本操作
    請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序（包括界面和代碼）。
在名稱為Form1的窗體上建立一個水平滾動條，名稱為HS1，其最大值為100，最小值為0（如圖所示）。要求程序運行后，每次移動滾動框時，都執(zhí)行語句Form1.Print HS1.Value。
    注意：
    1)程序中不能使用任何其他變量。
    2）保存時必須存放在考生文件夾下，窗體文件名為djks006.frm，工程文件名為djks006.vbp。
    程序運行時的窗體界面如圖所示。  
        

【答案】
1.建立工程
    單擊考試界面的“功能”選項，從彈出的菜單中選擇“啟動應(yīng)用程序”選項。Visual Basic啟動后，在“新建工程”對話框中選擇“標準EXE”，單擊“打開”按鈕，新建一個工程文件。
2.添加窗體
    隨著Visual Basic的啟動，工程會自動建立一個新的窗體。用戶可以選擇“工程”菜單中的“添加窗體”選項，在“添加窗體”對話框中選擇“窗體”選項后，單擊“打開”按鈕，即可添加窗體。用戶也可以使用Alt+P+F組合鍵直接訪問“添加窗體”對話框。
3.設(shè)計窗體
    單擊工具欄的水平滾動條控件，在窗體上拖拉出一個水平滾動條。設(shè)置其Name屬性為“HS1”，Min屬性為0，Max屬性為100。
4.編寫代碼
    雙擊水平滾動條，在它的Change事件中編寫代碼：
    Private Sub HS1_Change()
       Cls
       Form1.Print HS1.Value
    End Sub
5.保存
    測試沒有問題后，把窗體文件與工程文件存放到考生的文件夾下，名稱分別為djks006.frm與djks006.vbp。

【解析】
    滾動條沒有Caption屬性，但有Max與Min屬性，分別表示滾動條Value值的上下限。根據(jù)題意，Max設(shè)為100，Min設(shè)為0。代碼應(yīng)放在HS1的Change事件過程中。表示HS1的滾動框一發(fā)生變化，便在窗體上顯示水平滾動條的當前Value值。本段代碼前最好加上Cls，以使得每次執(zhí)行語句前，系統(tǒng)把窗體清空。