注意：下面出现的“考生文件夹”均为%USER%

　　**********************************************************************

　　请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

　　（1）在名称为Form1的窗体上画一个水平滚动条，其名称为HScroll1，Min属性为1000，Max属性为1500，LargeChange属性为50，SmallChange属性为2；然后再画一个文本框，其名称为Text1， 初始内容为空白，编写适当的事件过程。 程序运行后， 移动滚动框，则在文本框中显示滚动框的当前位置。程序的运行情况如图所示。

　　要求：

　　1）不得使用任何变量

　　2）存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，将Min属性设为1000，将Max属性设为1500，将LargeChange属性设为50，将SmallChange属性设为2。画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空白

　　移动滚动框（即运行Change事件过程），在该Change事件过程中加入语句：

　　Private Sub HScroll1_Change()

　　Text1 = HScroll1

　　End Sub

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt1.vbp、sjt1.frm、sjt1.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt1.vbp文件并运行。

　　**********************************************************************

　　（2）在名称为Form1的窗体上画一个命令按钮，其名称为C1，标题为“移动”，位于窗体的左上部，如图1所示，编写适当的事件过程。程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100。程序的运行情况如图2所示。

　　要求：

　　1）不得使用任何变量；

　　2）存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个命令按钮控件，通过其属性窗口将名称设为C1，标题（Caption属性）设为“移动”。

　　单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Form_Click()

　　C1.Left = 100 + C1.Left

　　C1.Top = 100 + C1.Top

　　End Sub

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt2.vbp、sjt2.frm、sjt2.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt2.vbp文件并运行。