有这么一个界面，一个文本框，显示速度，精确到一位小数。速度最大值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
可是测试发现有问题

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

Format(a, "0.#")这句改成：Format（a, "0.0"）；
Format(a, "###.#")这句改成：Format（a, "###.0"）就可以了。

在格式函数中，“0”表示该位一定有个数字；“#”表示非零时才显示数字。

PS：以下摘录MSDN

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

'以系统设置的长时间格式返回当前系统时间。
MyStr = Format(Time, "Long Time")

'以系统设置的长日期格式返回当前系统日期。
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s")               ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM")       ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy")    ' 返回 "Wednesday, Jan 27 1993"。

'如果没有指定格式，则返回字符串。
MyStr = Format(23)                            ' 返回 "23"。

'用户自定义的格式。
MyStr = Format(5459.4, "##,##0.00")           ' 返回 "5,459.40"。
MyStr = Format(334.9, "###0.00")              ' 返回 "334.90"。
MyStr = Format(5, "0.00%")                    ' 返回 "500.00%"。
MyStr = Format("HELLO", "<")                  ' 字母小写，返回 "hello"。
MyStr = Format("This is it", ">")             ' 字母大写，返回 "THIS IS IT"。

谢谢！