新手求教！！代码问题在哪？

czw187 发布于 2012-10-31 12:41， 855 次点击

Private Sub Command1_Click()
x = Val(Text1.Text) + Val(Text2.Text)
Text3.Text = x
End Sub

Private Sub Command2_Click()
x = Val(Text1.Text) - Val(Text2.Text)
Text3.Text = x
End Sub

Private Sub Command3_Click()
x = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = x
End Sub

Private Sub Command4_Click()
x = Val(Text1.Text) / Val(Text2.Text)
Text3.Text = x
End Sub
为什么这个计算器计算小数时会出错啊？求高手指点一下

11 回复

Artless2012-10-31 12:56

会吗？

czw1872012-10-31 12:58

回复 2楼 Artless

会的，小数除以整数时就会出错

czw1872012-10-31 13:01

回复 2楼 Artless

只有本站会员才能查看附件，请登录

你可以看一下效果

Artless2012-10-31 13:03

以下是引用czw187在2012-10-31 12:58:33的发言：

会的，小数除以整数时就会出错

例如？

czw1872012-11-01 09:16

回复 5楼 Artless

0.6除以6你试试

Artless2012-11-01 11:16

以下是引用czw187在2012-11-1 09:16:00的发言：

0.6除以6你试试

0.1,没问题

czw1872012-11-01 12:30

回复 7楼 Artless

可是为什么显示的是.1
而且你用小数除以整数时结果是这种形式8.69565217391304E-03
例如0.6除以69 结果为8.69565217391304E-03

Artless2012-11-01 12:36

以下是引用czw187在2012-10-31 12:41:46的发言：
为什么这个计算器计算小数时会出错啊？求高手指点一下

以下是引用czw187在2012-11-1 12:30:15的发言：
可是为什么显示的是.1
而且你用小数除以整数时结果是这种形式8.69565217391304E-03
例如0.6除以69 结果为8.69565217391304E-03

这不是出错

#10

czw1872012-11-01 13:01

回复 9楼 Artless

有没有什么方法可以让他显示正常吗？相除的时候我只要前几位，后面的小数点怎么限制几位？

#11

wube2012-11-02 01:18

以下是引用czw187在2012-11-1 13:01:42的发言：

有没有什么方法可以让他显示正常吗？相除的时候我只要前几位，后面的小数点怎么限制几位？

format()

#12

czw1872012-11-02 17:25

回复 11楼 wube

能具体点不？