![](https://cos-cdn.shuashuati.com/pipixue-web/2020-1231-2005-12/ti_inject-812ce.png)
设窗体上有一个名称为 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