这个较简单，我给你一个函数：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
我希望数字不四舍五入怎么办？？
追答那你就保留小数点后四位 然后再去掉最后一位
在vb中如何实现数字的运算后保留三位小数,但不要求数据四舍五入。
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...
在vb中如何实现数字的运算后保留三位小数,但不要求数据四舍五入。
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...
VB编程怎么控制小数点位数又不四舍五入。
v = Val(s) '数值123.4567 '根据字符串只截取三位小数，第四位不四舍五入 pos = InStr(s, ".")a = Val(Left(s, pos + 3)) '从左边取到小数点位置+3个字符，转换为数值 b = Int(v * 1000) \/ 1000 '把123.4567扩大1000倍后取整为123456.7再除1000 Print a, b ...
VB中为什么不是四舍五入
VB中真正的取舍方法 四舍六入五凑偶 对于位数很多的近似数，当有效位数确定后，其后面多余的数字应该舍去，只保留有效数字最末一位，这种规则是“四舍六入五成双”，也即“4舍6入5凑偶”这里“四”是指≤4 时舍去，"六"是指≥6时进上，"五"指的是根据5后面的数字来定...
...公式计算得到一个数值,怎样取到小数点后三位,并且自动四舍五入...
显示三位小数点的作用是，一般主要用于显示的时候才用，中间过程没必要使用的。上面的两个方法其实也是没必要的，因为它是中间过程，这里只是给你看而已。真正使用时如下（假如要在文本框text1显示E值给用户看）：【方法一】Text1.text= Round(Sqr((x1 - x11) * (x1 - x11) + (y1 - y11) *...
在vb里如何控制小数点后小数输出的位数(不将其转化为字串型)
Round(exp [,num])参数说明：exp 必需的。要进行四舍五入运算的数值表达式。num 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。例子：round(12.3456)=12 round(12.3456,2)=12.35
如何在VB中实现取小数点后几位的数值?
1、打开VB6.0软件，新建一个标准exe工程；2、在设计界面上新建一个Command控件；3、双击Command1控件，进入代码编辑界面，输入代码：Private Sub Command1_Click()Dim res As Doubleres = Format(1 \/ 3, "0.000")Print res;End Sub 4、运行工程，单击按钮，可以看到数据被保留三位小数；5、总结，...
如何在VB中设置精度问题,即是保留小数点后的几位。
方法一：用Round函数，语法 ：ROUND(number,num_digits)Number 需要进行四舍五入的数字。 Num_digits 指定的位数,按此位数进行四舍五入。示例：'Round(需要修改的数字,小数位数)Print Round(3.1415926, 3)显示：3.142 方法二：用Format函数，返回Variant(String)，其中含有一个表达式，它是根据格式...
vb 保留小数点
Private Sub Command1_Click() Dim a, b, c a = 5 b = 6 c = a * b Print Format(c, ".00")End Sub效果如下：Format函数数字操作相关说明：数字类型的格式化--- 固定格式参数： General Number 普通数字，如可以用来去掉千位分隔号 format$("100,123.12","Gen...
在VB FOR循环语句中终值为小数是否四舍五入
不是四舍五入~是返回比这个浮点数大又最接近的整数 Private Sub Form_Load()Show For i = 1 To 3.1 Next i Print i For i = 1 To 4.5 Next i Print i End Sub 1.1 到1.9 都返回2 你自己可以做实验
