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

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

　　（1）在名称为 Form1的窗体上画一个水平滚动条，其名称为HScroll1，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：

　　1）窗体标题为“设置滚动条属性”

　　2）滚动条所能表示的最小值和最大值分别为0和200

　　3）程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为2

　　4）程序运行后，单击滚动框前面或后面的部位时，滚动框移动的增量值为10

　　5）滚动框的初始位置为100

　　程序的运行情况如图所示。

　　要求：

　　不要编写任何代码。

　　*注意：

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

　　名为sjt1.frm。

　　解题思路：

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

　　在该窗体上画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，Min属性设为0，Max属性设为200，LargeChang属性设为10，SmallChange属性设为2，Value属性设为100。激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“设置滚动条属性”。

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

　　Private Sub HScroll1_Change()

　　Text1.Width = HScroll1.Value * 1.2

　　Text1.Height = HScroll1.Value

　　End Sub

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

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

　　（2）在名称为Form1的窗体上画一个文本框，其名称为Text1（如图 1所示），编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。

　　程序的运行情况如图 2所示。

　　要求：

　　不得使用任何变量；只允许通过修改属性的方式移动文本框。

　　*注意：

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

　　解题思路：

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

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。

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

　　Private Sub Form_Click()

　　Text1.Left = 0

　　Text1.Top = 0

　　End Sub

　　文本框中输入信息则使文本框移动到窗口的右上角（即运行Change事件过程），在该Change事件过程中加入语句：

　　Private Sub Text1_Change()

　　Text1.Left = Form1.Width - Text1.Width

　　Text1.Top = 0

　　End Sub

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

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