问题
填空题
设窗体上有一个名称为HScroIII的水平滚动条,要求当滚动块移动位置后,能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差,向右移动为正数,向左移动为负数)。下面是可实现此功能的程序,请填写。
Dim______As Integer
Private Sub Form_Load()
pos=HScroIII.Value
End Sub
Private Sub HScroIII_Change()
Print______-pos
pos=HScroIII.Value
End Sub
答案
参考答案:pos HScroIII.value
解析: 从函数Form_Load()中得知,pos中存放的是当前水平滚动条hScroIII所在的位置的值,即HScroIII.Value,故此空中应是定义一个整型。
在函数HScroIII_Change()中的是改变滚动条时触发的动作,题中要求在窗体上打印出滚动条移动的距离值,则应该将HScroIII.value这里是滚动条移动后当前所在位置的值减去一开始所在位置值,即减去pos,故应该填HScroIII.Value。