问答题在名称为Form1的窗体上添加一个名称为HS的水平滚动条，最大值为100，最小值为1。再添加一个名称为List1的列表框，在属性窗口中输入列表项的值，分别是1000、1500、2000，如图所示。请编写适当的程序，使得运行程序时，将水平滚动条的长度改变为所选中列表框中的某一项的值。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt. vbp，窗体文件名保存为sjt2. frm。

【正确答案】[解题思路] List1 Click事件过程中，使滚动条的Width属性值等于列表框的Text属性值，那么当选择列表框中的某一项，就将水平滚动条的长度改变为所选中的值。
[操作步骤]
步骤1：程序中用到的控件及属性见表2。

表2
控件	滚动条			列表框
属性	Name	Max	Min	Name	List
设置值	HS	100	1	List1	1000、1500、2000

步骤2：编写程序代码。
参考答案
Private Sub List1_Click()
HS. Width = List1. Text
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

【答案解析】