[问答题] 在考生文件夹下有一个工程文件sjt5.vbp，在Form1的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为1000、0；再画两个标签，名称分别为Label1和Lab

[问答题] 在考生文件夹下有一个工程文件sjt5.vbp，在Form1的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为1000、0；再画两个标签，名称分别为Label1和Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为C1和C2，标题分别为“向右移动”、“向左移动”；再画一个计时器，名称为Timer1(如图3—1所示)。请设置控件适当的属性和编写适当的事件过程，使得在运行时，单击“向右移动”按钮，则水平滚动条的滚动框每秒向右移动100；单击“向左移动”按钮，则水平滚动条的滚动框每秒向左移动100；当滚动框到达两端时，它将改变移动的方向，但速度不变。注意：修改控件的适当属性，并去掉程序中的注释符，把程序中的改为正确的内容，使其实

现上述功能。修改后的文件以原来的文件名存盘。

参考答案：

问题解析:

① 建立界面和设置控件属性。 题目提供了程序用到的控件及其属性，如下表4所示。表 4控 件属 性设 置 值标签NameCaptionLabel1"1000"标签NameCaptionLabel2"0" 水平滚动条NameMaxMinHScroll110000 命令按钮NameCaptionC1“向右移动”命令按钮NameCaptionC2“向左移动”计时器NameEnabledIntervalTimer1False1000 ② 编写程序代码。 程序提供的代码： Dim dis As Integer Private Sub C1_Click() ’ Timer1.Enabled＝ dis＝100 End Sub Private Sub C2_C1ick() Timer1.Enable=True ’ dis＝ End Sub ’ Private Sub Timer1_() HSeroll1. Value＝HScroll1. Value+dis If HScroll1.Value＞=HScroll1. Max Then HScroll1. Value=HScroll1.Max dis=-100 End if ’ If Then HScroll1. Value=HSeroll1. Min dis=100 End If End Sub修改后的参考代码： Dim dis AS Integer Private Sub C1_Click() Timer1.Enabled=True dis=100 End Sub Private Sub C2_Click() Timer1.Enabled=True dis=—100 End Sub Private Sub Timerl_Timer() HScroll1. Value=HSeroll1.Value + dis If HScroll1. Value＞=HSeroll1. Max Then HScroll1. Value=HScroll1. Max dis=—100 End if If HScroll1. Value＜=HSeroll1.Min Then HScroll1. Value=HScroll1. Min dis=100 End If End Sub ③ 按题目要求存盘。