例: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
温馨提示:答案为网友推荐,仅供参考