问答题
在考生文件夹下有一个工程文件sjt5.vbp，在Form1的窗体上画一个水平滚动条，名称为 Hscroll1，最大值和最小值分别为1000、0；再画两个标签，名称分别为Label1和Label2，标题分别为“1000”、“0”；再画两个命令按钮，名称分别为C1和C2，标题分别为“向右移动”、“向左移动”；再画一个计时器，名称为Timer1(如图3—1所示)。请设置控件适当的属性和编写适当的事件过程，使得在运行时，单击“向右移动”按钮，则水平滚动条的滚动框每秒向右移动100；单击“向左移动”按钮，则水平滚动条的滚动框每秒向左移动100；当滚动框到达两端时，它将改变移动的方向，但速度不变。
注意：修改控件的适当属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实
注意：修改控件的适当属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实
【正确答案】① 建立界面和设置控件属性。
题目提供了程序用到的控件及其属性，如下表4所示。表 4
② 编写程序代码。
程序提供的代码：
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
③ 按题目要求存盘。
题目提供了程序用到的控件及其属性，如下表4所示。
控 件 | 属 性 | 设 置 值 |
标签 | Name Caption | Label1 "1000" |
标签 | Name Caption | Label2 "0" |
水平滚动条 | Name Max Min | HScroll1 1000 0 |
命令按钮 | Name Caption | C1 “向右移动” |
命令按钮 | Name Caption | C2 “向左移动” |
计时器 | Name Enabled Interval | Timer1 False 1000 |
程序提供的代码：
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
③ 按题目要求存盘。
【答案解析】