在vb中如何实现数字的运算后保留三位小数,但不要求数据四舍五入.例如数字为1.2568运算后只保留前三位及为1.256
1人问答
问题描述：
在vb中如何实现数字的运算后保留三位小数,但不要求数据四舍五入.
例如数字为1.2568运算后只保留前三位及为1.256
杜旭辉回答：
这个较简单,我给你一个函数：XiaoShu(保留小数前的原始数值,保留位数）
调用方法如下：
假设你的数字存在变量A中,现在要将A中的数字保留三位小数（不四舍五入）放入B中,则
Dim A as Single, B as Single
A = 1.2568
B=XiaoShu(A,3)
Print A & "保留3位小数点的结果是（不四舍五入） " & B
从输出B的值可以看到,已经是三位数了（没有进位）.
下面的函数复制到你的vb代码的最后即可：
Function XiaoShu(ByVal a As Single, b As Long) As Single
a = CStr(a)
XiaoShu = Left(a, InStr(1, a, ".") + b)
End Function
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
姓名详批
结婚吉日
其它推荐
![【已知函数f（x）=ax+x2-xlna（a＞0，a≠1）．（Ⅰ）求函数f（x）单调区间；（Ⅱ）若存在x1，x2∈[-1，1]，使得|f（x1）-f（x2）|≥e-1（e是自然对数的底数），求实数a的取值范围．】](/UploadFile/wdimg/2071/307933635/112/3585631280.jpg)
![已知函数f（n）=log（n+1）（n+2）（n为正整数），若存在正整数k满足：f（1）•f（2）••f（n）=k，那么我们称k为“好整数”．当n∈[1，2013]时，则所有符合条件的“好整数”之和为（）](/UploadFile/wdimg/2071/4218716289/170/4199816461.jpg)
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱： 
