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