4,009
社区成员




WScript.Echo fNumber(1.000)
WScript.Echo fNumber(0.700)
WScript.Echo fNumber(0.7001)
WScript.Echo fNumber(21.7001)
WScript.Echo fNumber(0.50)
Function fNumber(n)
Dim i
i = CStr(CDbl(n))
If Mid(i,1,1) = "." Then
fNumber = 0 & i
Else
fNumber = i
End If
End Function