已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置:
HScroll1.Min:1 HScroll1.Max:10 HScroll1.SmallChange:1
HScroll1.LargeChange:2 HScroll1.Value:5
写出连续3次单击水平滚动条HScroll1右端箭头后,窗体上显示的结果。
Private Sub HScroll1_Change()
Static y As Integer
If HScroll1.Value Mod 2 = 0 Then
y = y + HScroll1.Value
Print "y="; y
End If
End Sub