[问答题] 完成下列问题：在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请

[问答题] 完成下列问题：

在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置，运行情况如图2所示。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

[操作步骤] 第1步：新建一个标准EXE工程，保持窗体默认属性不变。 第2步：在窗体上画一个水平滚动条，将其Min属性设置为1，Max属性设置为100。由于先添加滚动条，后添加文本框，滚动条的TabIndex属性默认为0，所以无须修改。 第3步：添加文本框。在窗体上画一个文本框，将其Text属性改为1。 第4步：编写代码。双击窗体上的滚动条控件进入代码编辑窗口，编写如下事件过程： Private Sub HScroll1_Change() Text1.Text=HScroll1.Value

滚动条的刻度范围由Min和Max两个属性决定，对于本题只需将滚动条的Min属性设置为1，Max属性设置为100即可满足刻度范围要求。窗体上控件焦点的顺序由各控件的TabIndex属性控制。程序运行时，要求焦点在滚动条上，只需将滚动条的TabIndex属性设置为0即可。滚动条的滑块位置由其Value属性设置，当Value属性值发生改变时会引发滚动条的Change事件。