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

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

　　（1）在名称为 Form1的窗体上画一个名称为Label1、标题为“滚动条控件”的标签，一个名称为 HScroll1 的水平滚动条。请通过属性窗口设置属性使水平滚动条取值范围的最小值为1，最大值为100，滚动条的宽度为3000，高度为300，滚动块的初始位置为20。程序运行后的窗体如图所示。

　　注意：

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

　　解题思路：

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

　　在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“滚动条控件”。

　　画一个水平滚动条控件，通过其属性窗口将名称设为 HScroll1，最大值（Max属性）设为100，最小值（Min属性）设为1，宽度（Width属性）设为3000，高度（Height属性）设为300，Value属性设为20。

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

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

　　（2）在名称为Form1的窗体上画一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。画一个名称为 Timer1的计时器，在属性窗口中将其设置为不可用，时间间隔为0.5秒，窗体如图所示。请编写窗体的 Load事件过程和计时器的事件过程，使得程序一开始运行，计时器即变为可用，且每隔0.5秒形状控件向下移动100。

　　注意：

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

　　解题思路：

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

　　在该窗体上画一个形状控件，通过其属性窗口将名称设为Shape1，Shape属性设为Circle。画一个计时器控件，通过其属性窗口将名称设为Timer1，Enabled属性设为False，Interval属性设为500。

　　在Private Sub Form_Load()事件过程中加入语句：

　　Private Sub Form_Load()

　　Timer1.Enabled = True

　　End Sub

　　在Private Sub Timer1_Timer()事件过程中加入语句：

　　Private Sub Timer1_Timer()

　　Shape1.Top = Shape1.Top + 100

　　End Sub

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

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