操作题
1. 在名称为Form1的窗体上添加一个命令按钮和一个水平滚动条，其名称分别为Command1和HScroll1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置水平滚动条的属性：
Max=窗体宽度
Min=0
LargeChange=50
SmallChange=10
而如果移动水平滚动条的滚动框，则滚动框的位置值显示在窗体上。程序的运行情况如图所示。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
Max=窗体宽度
Min=0
LargeChange=50
SmallChange=10
而如果移动水平滚动条的滚动框，则滚动框的位置值显示在窗体上。程序的运行情况如图所示。
要求：不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
【正确答案】步骤1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表。
步骤2：编写程序代码。
参考答案
Private Sub Command1_Click()
HScroll1.Max=Form1.Width
HScroll1.Min=0
HScroll1.LargeChange=50
HScroll1.SmallChange=10
End Sub
Private Sub HScroll1_Change()
Print HScroll1.ValHe
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
| 控件 | 水平滚动条 | 命令按钮 | |
| 属性 | Name | Name | Caption |
| 设置值 | HScroll1 | Command1 | Command1 |
参考答案
Private Sub Command1_Click()
HScroll1.Max=Form1.Width
HScroll1.Min=0
HScroll1.LargeChange=50
HScroll1.SmallChange=10
End Sub
Private Sub HScroll1_Change()
Print HScroll1.ValHe
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】 本题主要考查控件的画法、水平滚动条(HScrollBar)相关属性的设置以及命令按钮简单事件编程的掌握情况。
滚动条的Max、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围。LargeChange属性用于设置当单击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。滚动条滑块位置改变时触发其Change事件。在窗体上输出内容使用Print方法。
滚动条的Max、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围。LargeChange属性用于设置当单击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。滚动条滑块位置改变时触发其Change事件。在窗体上输出内容使用Print方法。