Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Text3.Text = Str(c)
End Sub

如果: a=69.2875
b=69.2782

为什么c不能显示出0.0093呢?如果用用c计算别的,也用的不是是0.0093计算的,奇怪!高手说一下!

[此贴子已经被作者于2007-9-19 22:52:18编辑过]

Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim a1 As Double
Dim b1 As Double
Dim c1 As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b

a1 = Val(Text4.Text)
b1 = Val(Text5.Text)
c1 = a1 - b1

x = (c + c1) / 2

Text7.Text = Str(Round(x, 4))
End Sub

显出的是0.0095 四舍六入应该是0.0096
请问高手怎么处理？？

估计和类型与精度有关.

聲明為小數型（decimal）看看。。

定义小数试试