[问答题] 在考生文件夹下有一个工程文件sjt5.vbp，在Form1的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为1000、0；再画两个标签，名称分别为Label1和Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为C1和C2，标题分别为“向右移动”、“向左移动”；再画一个计时器，名称为Timer1(如图3—1所示)。请设置控件适当的属性和编写适当的事件过程，使得在运行时，单击“向右移动”按钮，则水平滚动条的滚动框每秒向右移动100；单击“向左移动”按钮

①建立界面和设置控件属性。题目提供了程序用到的控件及其属性，如下表4所示。表4控件属性设置值标签NameCaptionLabel1"1000"标签NameCaptionLabel2"0"水平滚动条NameMaxMinHScroll110000命令按钮NameCaptionC1“向右移动”命令按钮NameCaptionC2“向左移动”计时器NameEnabledIntervalTimer1False1000②编写程序代码。程序提供的代码：DimdisAsIntegerPrivateSubC1_Click()’Timer1.Enabled＝dis＝100EndSubPrivateSubC2_C1ick()Timer1.Enable=True’dis＝EndSub’PrivateSubTimer1_()HSeroll1.Value＝HScroll1.Value+disIfHScroll1.Value＞=HScroll1.MaxThenHScroll1.Value=HScroll1.Maxdis=-100Endif’IfThenHScroll1.Value=HSeroll1.Mindis=100EndIfEndSub修改后的参考代码：DimdisASIntegerPrivateSubC1_Click()Timer1.Enabled=Truedis=100EndSubPrivateSubC2_Click()Timer1.Enabled=Truedis=—100EndSubPrivateSubTimerl_Timer()HScroll1.Value=HSeroll1.Value+disIfHScroll1.Value＞=HSeroll1.MaxThenHScroll1.Value=HScroll1.Maxdis=—100EndifIfHScroll1.Value＜=HSeroll1.MinThenHScroll1.Value=HScroll1.Mindis=100EndIfEndSub③按题目要求存盘。