1,FormatNumber(expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
FormatNumber函数的语法有以下参数:
IncludeLeadingDigit 可选。三态常数,指示是否显示小数值小数点前面的零。有关数值,请参阅“设置”部分。 
2,if num<1 then
numnew="0"+cstr(num)
end if

解决方案 »

  1.   

    format函数和formatnumber函数有什么区别?
    用第2种方法,还是出现原来的错误呀
    第一种方法能不能举个例子呢
      

  2.   

    Print #1, Format(Form1.Adodc2.Recordset.Fields(j).Value, "##0.0##")
      

  3.   

    谢谢二位的回答,按cooly的说法,结果正确
      

  4.   

    TO:xiyupiaopiao(晨星) 你的问题见下(太长了,短消息写不下)1. File I/O
    dim outputstring as string
    Open "c:\1.txt" for output as #1
         do until rs.eof
            for i=0 to rs.fields.count-1
                outputstring=outputstring & space(1) & rs.fields(i).value
            next
            print #1,LTrim(outputstring)
            rs.movenext
         loop
    Close #12. FSO
    dim outputstring as string
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set MyFile = fso.CreateTextFile("c:\1.txt", True)
         do until rs.eof
            for i=0 to rs.fields.count-1
                outputstring=outputstring & space(1) & rs.fields(i).value
            next
            MyFile.writeline LTrim(outputstring)
            rs.movenext
         loop
    MyFile.Close
    Set fso = Nothing
      

  5.   

    up.
    我顶。。TO:xiyupiaopiao(晨星) 看到了吗?