代码如下


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编辑过]

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

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

To 8楼

不行啊
我添加了 Text3.Text = format(text3.text,"#0.#")
但是只是解决了除法的问题 加减乘的都没有解决呢。。。

[此贴子已经被作者于2007-7-25 16:43:50编辑过]

我的就是VB6.0
添加了Text3.Text = format(text3.text,"#0.#")
这个只对除法可行
其他的用同样的语句不行 不能实现功能