问题
填空题
设窗体上有一个名称为Hscroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填空。
Dim (10) As Integer
Private Sub Form_Load()
pos=HScroll1.Value
End Sub
Private Sub HScroll1_Change()
print (11) -pos
pos=HScroll1.Value
End Sub
答案
参考答案：(10)pos (11)HScroll.value
解析： 第[10]空位置是定义一个变量，程序仅使用了变量pos，所以第[10]空填写pos。为了能够在窗体上输出滚动块移动的距离，应该是用滚动条当前的值减去在滚动条移动之前的值，而程序装入时已执行pos=HScroll1.Value记录下了滚动条原先的值，所以第[11]个空填写HScroll.Value。显示出滚动条移动的距离后，同时用pos记录下滚动条当前的值，当下次移动滚动条时，pos里的值又成了新的“滚动条移动之前的值”，为下次计算做准备。