代码如下


Private Sub Command1_Click() 加法运算
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click() 减法运算
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click() 乘法运算
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click() 除法运算
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click() 清零按钮
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub


text3 是显示结果
为什么我这样编写 算出来的结果 比如说是0.3的话 结果显示是.3而不是0.3 如果是-0.3就显示-.3而不是-0.3

怎么小数点前面的0跑没掉了？ 还要补充写什么代码呀？

[此贴子已经被作者于2007-7-18 21:20:30编辑过]

好像没有搂主说的问题嘛，你举个实例来看看，我显示都正常啊，你文本框没做特殊设置吧

没有麽？
你计算下 1÷5 答案是不是 .2 而不是 0.2

文本框 我只对输出答案的那个文本框进行锁定，就是text3.locked=true 其他的文本框没有怎么设置

[此贴子已经被作者于2007-7-18 23:19:30编辑过]

呵呵！我的计算器也有这个问题。而且先输0再输其它数字时，前面的0竟然不消失，哪位高手帮忙啊！！！

format(数据变量,"#0.#")

LS的和我想得一样。

format(数据变量,"#0.#")

什么意思？
能不能讲清楚点啊？
谢谢

这个估计是版本关系了，我试了，没有，下面是贴图

实在不行，你就再添行代码吧
Text3.Text = format(text3.text,"#0.#")

format(数据变量,"#0.#")  --- 数据格式化输出   "#"和"0"都是占位符号   

我的也是啊
没有0出现 结果有关是0.2 的，结果却显示.2 郁闷拉