问答题
在名称为Form1的窗体上添加一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1)，如图1所示。存属件窗口中对滚动设詈加下属件：
编写适当的事件过程。程序运行后，通过改变滚动条上的刻度值，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在 下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
图1
编写适当的事件过程。程序运行后，通过改变滚动条上的刻度值，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在 下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
图1
【正确答案】
【答案解析】[操作步骤]
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见下表。
步骤2：编写程序代码。
Private Sub HScroll1_Change()
Text1.Height=HScroll1.Value
Text1.Width=1.2*Text1.Height
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max和Min属性为滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。
文本框的高度和宽度分别由其Height属性值和Width属性值设定。
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见下表。
| 控件 | 文本框 | 水平滚动条 | ||||
| 属性 | Name | Name | Max | Min |
Large
Chanae |
Small
Change |
| 设置值 | Text1 | HScroll1 | 2000 | 500 | 50 | 20 |
Private Sub HScroll1_Change()
Text1.Height=HScroll1.Value
Text1.Width=1.2*Text1.Height
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max和Min属性为滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。
文本框的高度和宽度分别由其Height属性值和Width属性值设定。