本系列资料由"韬略宏智" 授权发布,任何网站不得转载,否则追究法律责任。

一、基本操作
    请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0（如图所示）。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value。
    注意：
    1)程序中不能使用任何其他变量。
    2）保存时必须存放在考生文件夹下，窗体文件名为djks006.frm，工程文件名为djks006.vbp。
    程序运行时的窗体界面如图所示。  
        

【答案】
1.建立工程
    单击考试界面的“功能”选项，从弹出的菜单中选择“启动应用程序”选项。Visual Basic启动后，在“新建工程”对话框中选择“标准EXE”，单击“打开”按钮，新建一个工程文件。
2.添加窗体
    随着Visual Basic的启动，工程会自动建立一个新的窗体。用户可以选择“工程”菜单中的“添加窗体”选项，在“添加窗体”对话框中选择“窗体”选项后，单击“打开”按钮，即可添加窗体。用户也可以使用Alt+P+F组合键直接访问“添加窗体”对话框。
3.设计窗体
    单击工具栏的水平滚动条控件，在窗体上拖拉出一个水平滚动条。设置其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值的上下限。根据题意，Max设为100，Min设为0。代码应放在HS1的Change事件过程中。表示HS1的滚动框一发生变化，便在窗体上显示水平滚动条的当前Value值。本段代码前最好加上Cls，以使得每次执行语句前，系统把窗体清空。