vb format函数保留小数（如何在VB中设置精度问题，即是保留小数点后的几位）

本文目录

• 如何在VB中设置精度问题，即是保留小数点后的几位
• VB中，例如，保留小数点后3位，应该是1.170，但是它总是显示为1.17,怎么才能显示0
• vb 保留小数点
• 怎样在VB 中Text显示保留两位小数
• 求帮助，vb作业用format函数规定label的格式为0.00，保留两位小数，要怎么写
• VB保留三位小数和保留三位整数
• 关于vb中format函数的小小问题~
• vb能精确到小数点后面几位
• vb中如何控制计算结果的小数位，如果用format函数但问题是我并不知道计算出的结果中整数位有多少啊
• VB6.0 我想用format函数保留两位小数

如何在VB中设置精度问题，即是保留小数点后的几位

方法一：

用Round函数，语法 ：

ROUND(number,num_digits) 

Number 需要进行四舍五入的数字。 Num_digits 指定的位数,按此位数进行四舍五入。

示例：

’Round(需要修改的数字,小数位数)

Print Round(3.1415926, 3)

显示：3.142

方法二：

用Format函数，返回Variant(String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。

语法

Format(expression)

Format函数的语法具有下面几个部分：

示例：

’Round(需要修改的数字,小数位数)

Print format (3.1415926, "#,###")

显示：3.142

VB中，例如，保留小数点后3位，应该是1.170，但是它总是显示为1.17,怎么才能显示0

Format函数的返回值类型是字符串（只有字符串才有可能保留后面的0），如果把它再赋值给一个数值变量（比如Single或Double），那么它又变为数值了，后面的0肯定就没了。换句话说就是Format函数完全做了无用功！
Format函数的作用主要是用来控制输出格式的，不建议用来转换数据的实际格式（比如取整、四舍五入什么的）。取整用Int函数，保留小数位用Round函数。
你测试一下下面的语句就清楚了：
Dim num As Single, s As String
num = 1.17
Print Format(num, "0.000") ’显示的将是1.170，说明Format函数是有效的
s = Format(num, "0.000")
Print s ’显示的也是1.170， 因为s是字符型的，所以后面的0被保留了
num = Format(num, "0.000")
Print num ’这次显示的将是1.17，因为num是数值型，而小数中最后面的0对于数字来说是无意义的，所以那个0就自动没了。

vb 保留小数点

使用 Format函数来控制，说明如下，

. 强制显示小数点
 Format("100123.12",".000") 返回值 100123.120

示例：

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","General Number") 返回值 100123.12
   
    Currency 货币类型，可添加千位分隔号和货币符号
    format$("100123.12","Currency") 返回值 ￥100,123.12
   
    Fixed 格式为带两位小数的数字
    format$("100123","Fixed") 返回值 100123.00
   
    Standard 标准，即带千位分隔号和两位小数
    format$("100123","Standard") 返回值 100,123.00
   
    Percent 百分数
    format$("100123","Percent") 返回值 10012300.00%
   
    Scientific 科学记数法
    format$("100123","Scientific") 返回值 1.00E+05
   
    Yes/No 当值为0时返回 NO,否则返回 YES
    format$("100123","Yes/No") 返回值 Yes
   
    True/False 当值为0时返回 False,否则返回 True
    format$("100123","True/False") 返回值 True
   
    On/Off 当值为0时返回 Off,否则返回 On
    format$("100123","Yes/No") 返回值 On
    自定义格式参数
   
    "" 不进行格式化 返回值 原值
   
    0 占位格式化，不足补0
    format$("100123","0000000") 返回值 0100123
   
    # 占位格式化，不足时不补0
    format$("100123","#######") 返回值 100123
   
    . 强制显示小数点
    format$("100123.12",".000") 返回值 100123.120
   
    % 转化为百分数，一个%代表乘以100
    format$("10.23","0.00%") 返回值 1023.00%
    format$("10.23","0.00%%") 返回值 102300.00%%
   
    , 以千为单位格化
    format$("10.23",",") 返回值 0
    format$("10010.23",",") 返回值 10
    format$("10010.23",",0.00") 返回值 10.01
   
    E- E+ e- e+ 显示为科学记数(要注意格式语句，否则会和E的其它含义相混)
    Format$(12.5,"0.00E+00") 返回值 1.25E+01
   
    $ 强制显示货币符号
    format$("10.23","{threadcontent}.00") 返回值 ￥10.23
   
    - + ( ) space 按位置显示本样
    Format$("1234.56","-(0.00)") 返回值 -(1234.56)
   
    \ 转义符,显示出特殊符号
    Format$("1234.56","\#.00") 返回值 #1234.56
   
    "ABC" 显示双引号 (" ") 之内的字符串。如在代码中想在 format 中包含一个字符串，必须用 Chr(34) 将文本括起来（34 为双引号 ("))
    Format$(123.45,"TTT") 返回值 TTT
    注：当双引号中的文本包含特殊的参数符号如e,要使用转义符"\"，否则会按e的作用显示
   
    ; 类似多目运算符的作用。
   
    当共有 四 部分时，
    当大于0时，按第一部分进行格式化，
    当小于0时按第二部分进行格式化，
    当等于0时按第三部分进行格式化，
    当为null值时，按第四部分进行格式化。如：
    Format$(0,"0.00;负数;零;空") 返回值 零
   
    当共有 三 部分时，
    当大于0时，按第一部分进行格式化，
    当小于0时按第二部分进行格式化，
    当等于0时按第三部分进行格式化，如：
    Format$(-10,"0.00;ttt;零") 返回值 ttt
   
    当共有 两 部分时，
    当大于或等于0时，按第一部分进行格式化，
    当小于0时按第二部分进行格式化，
    Format$(-123,"0.00;abc") 返回值 abc
    Format$(123,"0.00;abc") 返回值 123.00
   
    当共有 一 部分时，按分号左边进行格式化

怎样在VB 中Text显示保留两位小数

问题1:Private Sub Command1_Click()
Dim x As Single
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
Text3.Text = s1 + s2
Text4.Text = Format(s2 / (s1 + s2) , "0.00")
End Sub
问题2:Private Sub Command1_Click()
Dim x As Single
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
Text3.Text = s1 + s2
Text4.Text = Format(s2 / (s1 + s2) * 100, "0.00") & "%"
End Sub

求帮助，vb作业用format函数规定label的格式为0.00，保留两位小数，要怎么写

假定要显示在Label1的数据为x：
Label1.Caption = Format(x, "0.00")

VB保留三位小数和保留三位整数

保留三位整数：
Dim X As Single
X = Val(InputBox("输入一个任意实数！"))
Print Format(X, "000")

保留三位小数：
Dim X As Single
X = Val(InputBox("输入一个任意实数！"))
Print Format(X, ".000")

关于vb中format函数的小小问题~

在这里format(1234.565,”#####.####”)表示数字占位。主要是对于小数点后面的数有作用。
这里小数点后面有四个“#”，如果只有两个，而且前面的数的小数位不只两位的话，就会只保留两位小数。
比如format(1234.565,”#####.##”)得到的数值就是1234.57
当然小数点左边的#个数不会影响最后结果。

vb能精确到小数点后面几位

要求四舍五入到小数点，首先要明确是输入和输出都要精确到小数点后，因此：
1.定义变量a.b时要设为single（最多精确到小数点后7位）或double（最多精确到小数点16位）
2.输出时用format（）函数，如果最终结果你想精确到小数点后5位，那就写作：print
format(text1.text,"##.00000"),至于四舍五入，默认情况下系统会自动帮你转换，就用round（）函数试试，这是vb系统自带的，同样要精确到小数点后5位可以这样写：print
round(val(text1.text),5)

vb中如何控制计算结果的小数位，如果用format函数但问题是我并不知道计算出的结果中整数位有多少啊

Private Sub Command1_Click()
Text1 = Round(123.78905, 2)
End Sub
结果：text1=123.79（四舍五入），2是小数位数，随便改
Round(expression )
Round函数语法有如下几部分：
部分 描述
expression 必需的。要进行四舍五入运算的数值表达式。
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。

VB6.0 我想用format函数保留两位小数

电脑中显示纯小数就是这种形式的，因为对于纯小数而言，前面那个0纯属多余，而且可以节省一个字节的空间，这在西方国家完全没问题，但是中国人看惯了0.045754这样的形式，只好多做一下手脚了：
要记住，Format函数的返回值是字符串，直接Print的话可以出现小数点前的前导0：
Print Format(qzwc, "0.00")
显示为 0.05
但是，如果用Val()再把它转为数值，那么前导0又会不见的：
Print Val(Format(qzwc, "0.00"))
显示为 .05
所以，一般是这样处理的，就是在用变量储存数据的时候，不要用Format函数处理，也就是
czsc(i).zwc = qzwc
而在需要Print的时候，再用Format函数处理后输出：
Print Format(czsc(i).zwc, "0.00")
补充一句，如果要保留两位小数，最好不要用Format函数（因为它的返回值是字符串不是数字，所以一般把它用来控制输出格式），而改为Round函数，这才是正宗的数值处理函数：
czsc(i).zwc = Round(qzwc, 2)