vb 如何使结果保存两位小数？

[baiyunyi]

vb 如何使结果保存两位小数？如：12.00、12.10等

[VBToy]

a=3.14159
a=round(a,2)'a=3.14

[baiyunyi]

a=3.10159
a=round(a,2)'a=3.1

对吧

怎么样让a=3.10

[wolfhero]

format(a,'#.00') 试试

[EexeNet]

嘿嘿~我想了一下，不过我老觉得我这样的思想不好！呵！不知道大伙们还有没有别的？
————————————————————————————
Private Sub Command1_Click()
a = 3.10159
i = 2 '小数点位数
a = Round(a, i) 'a=3.1
b = InStr(a, ".") + i - 1
c = b - Len(a) '补0的个数


For i = 0 To c
a = a & "0"
Next
Print a
End Sub
——————————————————————

[EexeNet]

嘿嘿。。原来还有一种不用程序，用系统东西:
Private Sub Command1_Click()
a = 3.1012
a = FormatNumber(a, 2)
Print a
End Sub
________________________________
FormatNumber($,%)

[zhoupq]

aa=3.14159

bb=format(aa,"0.00")

[AnnaBear]

format(值，“#.00”)^_^

[Snoworld]

format

[fxy_2002]

查查 formatNumber 函数的帮助，功能多多。

[wxrwan]

formatNumber

[baiyunyi]

谢谢！！！！

aa = 3.10234
If Left(Right(aa, 3), 1) <> "." Then
If Left(Right(aa, 2), 1) = "." Then
Label13.caption = Trim(Str(aa)) + "0"
Else
Label13.caption = Trim(Str(aa)) + ".00"
End If
Else
Label13.caption = aa
End If


这样会不会出问题阿

[baiyunyi]

谢谢朋友们！！！！