[问答题] 在考生文件夹下有一个工程文件sjt3.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数绝对值相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。如图2—1所示。要求：去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件

①建立界面和设置控件属性。题目提供了程序用到的控件及其属性。如下表3所示。表3对象属性设置值文本框NameTextText10命令按钮NameCaptionC1"移动"滚动条Name1MinMaxHS11100②编写程序代码题目提供的代码：PrivateSubC1_Cliek()’IfHS1.Value+Text1.Text＞HS1.ThenMsgBox"文本框中的数值太大"’ElselfHS1.Value+Text1.Text＜ThenMsgBox"文本框中的数值太小"Else’=HS1.Value+Text1.TextEndIfEndSub修改后的参考代码PrivateSubC1_Cliek()IfHS1.Value+Text1.Text＞HS1.MaxThenMsgBox"文本框中的值太大"ElselIfHS1.Value+Text1.Text＜HS1.MinThenMsgBox"文本框中的数值太小"ElseHS1.Value=HS1.Value+Text1.TextEndIfEndSub③按题目要求存盘2．修改完成后的代码如下：PrivateSubForm_Load()Command1.Caption="开始"Command2.Caption="停止"Timer1.Interval=50Timer1.Enabled=FalseLabel1.Caption="热烈欢迎"Label1.AutoSize=TrueLabel1.FontSize=16Label1.FontBold=TrueEndSubPrivateSubCommand1_Click()Command1.Caption="继续"Timer1.Enabled=TrueCommand1.Enabled=FalseComrnand2.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseCommand2.Enabled=FalseCommand1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfLabel1.Left＜WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub