问题
问答题
在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“计算机等级考试”，Left属性为0；再画一个水平滚动条，其名称为Hscroll1，在属性窗口中设置其属性如下：
Min 0
Max 3000
SmallChange 10
LargeChange 100
编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可使标签向相应的方向移动，标签距窗体左边框的距离等于滚动框的位置，程序的运行情况如图3所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
答案
参考答案：
第一步：启动Visual Basic，新建一个工程文件。
第二步：在窗体上画出一个水平滚动条，并将它的属性按试题要求进行设置。
第三步：编写程序源代码：
1 Prirate Sub HScroll1 Change( )
2 Label1.Left=Me.HScroll1
3 End Sub
4
5 Private Sub HScroll1_Scroll( )
6 Label1.Left = Form1
HScroll1
7 End Sub
第四步：调试并运行程序，运行正确后保存。程序设计完成经调试无误后进行存盘。以Stj2.vbp和sjt2.frm进行保存。
解析：
首先按试题要求在窗体上画出一个水平滚动条，并将它的属性按试题要求进行设置。当单击滚动条时，系统会触发Change事件，只要将HScroll1.Value赋值给Label1.left就能满足试题的要求。