UC知道vb一个计算题
来源：百度知道 编辑：UC知道 时间：2024/06/01 11:04:04
求一个数除以另一个数，结果保留三位小数并且使用恒定进位法，也就是说如果第四位只要不是0就全部像前进一位。
得到的这个数如果最后一位不是偶数则加1。
例如 两个数相除，如1除以3 等于 0.333333333333.....
我要得到的结果是 0.334
在例如两个数相除 = 1.299
我要得到的结果是 1.300
使用VB该如何最简单计算出来。
得到的这个数如果最后一位不是偶数则加1。
例如 两个数相除，如1除以3 等于 0.333333333333.....
我要得到的结果是 0.334
在例如两个数相除 = 1.299
我要得到的结果是 1.300
使用VB该如何最简单计算出来。
ez。。。
'----------------------------------------
c = a / b
c = IIf(Val(Right(Format(c, "0.0000"), 1)) <> 0, Format(Format(c, "0.000") + 0.001, "0.000"), Format(c, "0.000"))
If Right(Format(c, "0.000"), 1) Mod 2 <> 0 Then c = c + 1
MsgBox c '此句用于输出显示c，如无用可删去
'-------------------------------------------
'其中a是被除数、b是除数、c是结果输出的数
dim a as single
dim b as single
dim result as single
result = int((a/b)*1000)/1000;
dim tail as integer
tail = (result-int(result*100)/100)*1000
if tail mod 2 = 1 then result = result + 0.001
Format(A + 0.0004, "0.000")
就一句，啥也不说了，没有比这更简单的了
?????????????????????????????????????????......