我想求得数据：spd、gaocha、gc
进行四舍五入后并保留一位小数，经整理如下代码，

但结果不对，不知道错在哪？

帮我检查下，谢谢！

代码如下：
spd = Format(spd, "#0.00")
If spd > Format(spd, "#0.0") + 0.04 Then
Text11.Text = Format(spd, "#0.0") + 0.1
Else
Text11.Text = Format(spd, "#0.0")
End If

gaocha = Format(gaocha, "#0.00")
If gaocha > Format(gaocha, "#0.0") + 0.04 Then
Text10.Text = Format(gaocha, "#0.0") + 0.1
Else
Text10.Text = Format(gaocha, "#0.0")
End If

gc = Format(gc, "#0.00")
If gc > Format(gc, "#0.0") + 0.04 Then
Text12.Text = Format(gc, "#0.0") + 0.1
Else
Text12.Text = Format(gc, "#0.0")
End If

好象是FORMAT格式有问题

已经自己解决了!

谢谢各位,请看代码,如下

spd = 100 * l * Sin(g) * Sin(g)
gaocha = spd * Sin(g) * Cos(g)
gc = cz + gaocha + yg - zz

If Val(spd * 10) > Int(Val(spd * 10)) + 0.4 Then
Text11.Text = Int(spd * 10 + 1) / 10
Else: Text11.Text = Int(Val(spd * 10)) / 10
End If


If Val(gc * 10) > Int(Val(gc * 10)) + 0.4 Then
Text12.Text = Int(gc * 10 + 1) / 10
Else: Text12.Text = Int(Val(gc * 10)) / 10
End If

Round 函数

描述

返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。

语法

Round(expression [,numdecimalplaces])

Round函数语法有如下几部分：

部分 描述
expression 必需的。要进行四舍五入运算的数值表达式。
numdecimalplaces 可选的。数字值，表示进行四舍五入运算时，小数点右边应保留的位数。如果忽略，则Round函数返回整数。

我试了下,:

Round(a ,2)

好象不行啊

你A 是什么类型? 整形?浮点?

这个是MSDN上的说明.99%的情况下是不会有错的.

dim a as long

dim a as long

这样保存的数据,在A里面,只有整数部分,没有小数部分,怎么四舍五入?怎么保留小数?

应该用 单精度浮点或双精度浮点.

Private Sub Command1_Click()

Dim a As Single    '单精度浮点
Dim b As Double    '双精度浮点
 
 
a = 56.2348874    'a ,b 给初值
b = 698.24557
 
Print a,             '输出A 和四舍五入2位小数
Print Round(a, 2)
 
Print b,             '输出B 和四舍五入2位小数
Print Round(b, 2)

End Sub