1,FormatNumber(expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
FormatNumber函数的语法有以下参数:
IncludeLeadingDigit 可选。三态常数,指示是否显示小数值小数点前面的零。有关数值,请参阅“设置”部分。
2,if num<1 then
numnew="0"+cstr(num)
end if
FormatNumber函数的语法有以下参数:
IncludeLeadingDigit 可选。三态常数,指示是否显示小数值小数点前面的零。有关数值,请参阅“设置”部分。
2,if num<1 then
numnew="0"+cstr(num)
end if
解决方案 »
- vb如何设置网卡的混杂模式
- Data.Recordset.Delete报错,未找到方法或数据成员
- VB如何得到打开文件的句柄
- 急问:关于COM接收数据错误问题..........
- 我有一个项目文件夹,经常在单位和家里的电脑之间来回拷,平时在单位做,有时拷到家里电脑继续做.这样会有不好影响吗?[系统盘一个是c, 一个
- vb 6.0能不能作统计图?有没有这方面的控件?
- 如何得到大容量DISK的容量,以及其它系统信息?
- 请问如何使image控件显示,在对话框中得到的图片???
- VB代码中如何ping目标IP?
- 有无办法,使用for...next方法将某个目录中的*.exe文件依此读出文件名和修改日期.
- Windows 2000 pro 的BUG!!调查!
- 请问如何获取windows版本信息?
用第2种方法,还是出现原来的错误呀
第一种方法能不能举个例子呢
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
我顶。。TO:xiyupiaopiao(晨星) 看到了吗?