回 帖 发 新 帖 刷新版面

主题:[讨论]数据精度?

我的Command按钮下执行如下操作

Private Sub Command3_Click()
Text3.Text = Val(Sin(Text1.Text)) + Val(Log(Text2.Text))
If Val(Sin(Text1.Text) + Val(Log(Text2.Text)) <> Val(Text3.Text) Then
Command1.Caption = " 不相等"
Else
Command1.Caption = " 相等"
End If
End Sub

为啥结果总是不相等呢?

回复列表 (共5个回复)

沙发

精度

板凳


最好的解决办法是什么呢?

我用了Format(...,"0.000")

3 楼

不管怎样,建议先将Text控件中的数据储存在中间变量中。或者这样:
sin(Val(text1))

4 楼

tiger模拟币+5天唐一向是这么的热心&#183;&#183;&#183;2010-7-7 19:14

5 楼

tiger模拟币+5天唐一向是这么的热心&#183;&#183;&#183;2010-7-7 19:14

我来回复

您尚未登录,请登录后再回复。点此登录或注册