有这么一个界面，一个文本框，显示速度，精确到一位小数。速度最大值500.0
我滑动滚动条，文本框显示滚动条的值对应的速度。
我把滚动条的max属性设为5000.
我的代码如下：
Private Sub HScroll1_Change()
Dim a As Single

a = CSng(CSng(HScroll1.Value) / 10)
If a < 1 Then
    Text1 = Format(a, "0.#")
Else
    Text1 = Format(a, "###.#")
End If

End Sub
可是测试发现有问题

请高手指教，如何解决？谢谢！

谢谢！