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

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

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

　　（1）在名称为Form1 的窗体上画两个命令按钮，其名称分别为Command1和Command2，标题分别为“扩大”和“移动”。如图所示，编写适当的事件过程。程序运行后，如果单击Command1命令按钮，则使窗体在高、宽方向上各增加0.2倍（变为原来的1.2倍）；如果单击Command2命令按钮，则使窗体向右移动200，向下移动100。

　　要求：

　　程序中不得使用变量。

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

　　解题思路：

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

　　该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题（Caption属性）分别设为“扩大”和“移动”。

　　单击“扩大”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command1_Click()

　　Height = 1.2 * Height

　　Width = Width * 1.2

　　End Sub

　　单击“移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　Left = 200 + Left

　　Top = Top + 100

　　End Sub

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

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

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

　　（2）在名称为 Form1的窗体上画一个标签，其名称为Label1，标题为“计算机等级考试”，Left属性为0； 再画一个水平滚动条，其名称为HScroll1，在属性窗口中设置其属性如下：

　　Min 0

　　Max 3000

　　SmallChange 10

　　LargeChange 100

　　编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可使标签向相应的方向移动，标签距窗体左边框的距离等于滚动框的位置，程序的运行情况如图所示。

　　要求：

　　程序中不得使用变量，每个事件过程中只能写一条语句。

　　注意：

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

　　解题思路：

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

　　在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“计算机等级考试”，Left属性设为0。画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，Min属性设为0，Max属性设为3000，SmallChange属性设为10，LargeChange属性设为100。

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

　　Private Sub HScroll1_Scroll()

　　Label1.Left = Form1.HScroll1

　　End Sub

　　单击滚动条上的方向按钮（即运行Click事件过程）也能实现题目所要求的功能，在该Click事件过程中加入语句：

　　Private Sub HScroll1_Change()

　　Label1.Left = Me.HScroll1

　　End Sub

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

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