操作题
2. 在名称为Form1的窗体上画一个图片框，其名称为Picture1，一个水平滚动条，名称为HScroll1，一个命令按钮，名称为Commandl，标题为“设置属性”，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下：
Min 100
Max 1500
LargeChange 100
SmallChange 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
Min 100
Max 1500
LargeChange 100
SmallChange 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】【操作步骤】
步骤1：新建一个窗体，添加控件并设置相应的属性。程序中用到的控件及其属性见表。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
HScroll1.Max=1500 '设置滚动条的最大值、最小值、最大改变值、最小改变值
HScroll1.Min=100
HScroll1.LargeChange=100
HScroll1.SmallChange=10
End Sub
Private Sub HScroll1_Change()
Picture1.Width=HScroll1.Value '将图片的width与滚动条的Value保持一致
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：新建一个窗体，添加控件并设置相应的属性。程序中用到的控件及其属性见表。
| 控件 | 属性 | 设置值 | ||||||||||||||||||||||||
| 图片框 | Name | Picture 1 | ||||||||||||||||||||||||
| AutoSize | Ture | |||||||||||||||||||||||||
| Picture | Pic1.jpg | |||||||||||||||||||||||||
| 水平滚动条 | Name | HScroll1 | ||||||||||||||||||||||||
| 命令按钮 | Name | Command1 | ||||||||||||||||||||||||
| Caption | 设置属性 | |||||||||||||||||||||||||
参考答案
Private Sub Command1_Click()
HScroll1.Max=1500 '设置滚动条的最大值、最小值、最大改变值、最小改变值
HScroll1.Min=100
HScroll1.LargeChange=100
HScroll1.SmallChange=10
End Sub
Private Sub HScroll1_Change()
Picture1.Width=HScroll1.Value '将图片的width与滚动条的Value保持一致
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：水平滚动条的Name、Max、Min、LargeChange、SmallChange和Value属性，图片框的Width、Name和Picture属性以及命令按钮的Name和Caption属性。
在设计阶段通过Picture属性为图片框指定显示的图片，通过Width属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。
在设计阶段通过Picture属性为图片框指定显示的图片，通过Width属性来设定或修改图片框的宽度。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。