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
为什么这个计算器计算小数时会出错啊？求高手指点一下

会吗？

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

你可以看一下效果

例如？

0.6除以6你试试

0.1,没问题

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

这不是出错

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