我想求得数据：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(a ,2)

好象不行啊

dim a as long