VB中，用一个数除另一个数，得到小数点后保留两位。怎么解决！！

[hzlo1982]

大家好
我是刚刚接出VB的，请教大家 VB中，用一个数除另一个数，得到小数点后保留两位。怎么解决！！

[DT_hero_last]

Format函数

[djvfe]

round

[lxq19851204]

MsgBox Format(Round((11/ 4), 2), "0.00")

加上Format 是为了保持小数两位, Round函数可定义小数几位,但整除的话是不会有小数的,所以必需再加上Format函数.

Round函数

描述

返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。

语法

Round(expression [,numdecimalplaces])

Round函数语法有如下几部分：

部分 描述
expression 必需的。要进行四舍五入运算的数值表达式。
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。

[dbcontrols]

不管它保留几位,显示或写到文件,打印等使用的时候用Format函数格式化成你需要的位数即可

[chinaboyzyq]

FormatNumber(1 / 3, 2, vbTrue)

[of123]

使用 Currency 类型。

[天马行空_xaut]

学习学习，等待答案

[lyg_001239]

i=format(a/b,"0.00")

[神马都能聊]

[Quote=引用 1 楼 lxq19851204 的回复:]
MsgBox Format(Round((11/ 4), 2), "0.00")
......
[/Quote]
还是用FormatNumber好些，呵呵

[东方之珠]

保留2位小数的意思是要4舍5入。
Format本身有4舍5入功能，用了Format就不要再用round了。

Option Explicit

Private Sub Command1_Click()
        Dim a As Double
        a = 0.987654321
        a = a / 1
        Debug.Print Format$(a, "0.00")'结果为0.99
        a = a / 2
        Debug.Print Format$(a, "0.00")'结果为0.49
End Sub

[ytdzjun]

format就解决了

[杀神者]

[Quote=引用 1 楼 lxq19851204 的回复:]
MsgBox Format(Round((11/ 4), 2), "0.00")

加上Format 是为了保持小数两位, Round函数可定义小数几位,但整除的话是不会有小数的,所以必需再加上Format函数.

Round函数

描述

返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。

语法

Round(expression [,num……
[/Quote]

同意

[LIXIYO]

呵呵，凑个热闹:Format(Round((a/ b), 2), "0.00")

[熊孩子开学喽]

MSGBOX FORMAT( A/B+0.5,"0.00")