滚动条的问题

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"。