例：A=10,B=2，C=A/B，则C=5；
A=10,B=3,C=A/B,则C=3；
A=10,B=2.2,C=A/B,则C=4.5；
A=12,B=2,D=1.5,C=A/(B*D),则C=4；
能不能实现，大家都留个话，实在不能我就死心了。在线等
可以的
用round函数，保留多少位小数
Round(expression[, numdecimalplaces])参数
Expression
必选项。数值表达式被四舍五入。
Numdecimalplaces
可选项。数字表明小数点右边有多少位进行四舍五入。如果省略，则 Round 函数返回整数。
示例代码
Dim a As Double, b As Double, c As Double, i As Integer
a = 6.38
b = 2.15
i = Len(CStr(a)) - InStr(CStr(a), ".") 'i存储a的小数位数
c = a / b
MsgBox Round(c, i)'或者c=Round(c,i) msgbox c
用round函数，保留多少位小数
Round(expression[, numdecimalplaces])参数
Expression
必选项。数值表达式被四舍五入。
Numdecimalplaces
可选项。数字表明小数点右边有多少位进行四舍五入。如果省略，则 Round 函数返回整数。
示例代码
Dim a As Double, b As Double, c As Double, i As Integer
a = 6.38
b = 2.15
i = Len(CStr(a)) - InStr(CStr(a), ".") 'i存储a的小数位数
c = a / b
MsgBox Round(c, i)'或者c=Round(c,i) msgbox c
温馨提示：答案为网友推荐，仅供参考
