设窗体上有一个名称为 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