操作题
2. 在名称为Form1的窗体上添加一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再添加一个名称为Text1的文本框，初始文本内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图所示。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
【正确答案】【操作步骤】
步骤1：新建一个窗体，按照题目要求建立控件并设置其属性，如表所示。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub HScroll1_Change()
Text1.Text=HScroll1.Value
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：新建一个窗体，按照题目要求建立控件并设置其属性，如表所示。
| 控件 | 属性 | 设置值 | |||||||||||||||||||||
| 滚动条 | Name | HScroll1 | |||||||||||||||||||||
| Max | 100 | ||||||||||||||||||||||
| Min | 1 | ||||||||||||||||||||||
| TabIndex | 0 | ||||||||||||||||||||||
| 文本框 | Name | Text1 | |||||||||||||||||||||
| Text | 1 | ||||||||||||||||||||||
参考答案
Private Sub HScroll1_Change()
Text1.Text=HScroll1.Value
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：水平滚动条的Name、Max、Min、TabIndex和Value属性以及文本框的Name和Text属性。
TabIndex属性是当前窗体上控件的＜Tab＞键切换顺序：运行时按＜Tab＞键会按照TabIndex值从小到大的顺序进行切换。将滚动条的TabIndex属性设黄为0，可以使程序开始运行时，焦点在滚动条上。当滚动框的位置改变时，触发Change事件。通过Text1.Text=HScroll1.Value语句可以实现在文本框中显示滚动框的当前位置。
TabIndex属性是当前窗体上控件的＜Tab＞键切换顺序：运行时按＜Tab＞键会按照TabIndex值从小到大的顺序进行切换。将滚动条的TabIndex属性设黄为0，可以使程序开始运行时，焦点在滚动条上。当滚动框的位置改变时，触发Change事件。通过Text1.Text=HScroll1.Value语句可以实现在文本框中显示滚动框的当前位置。