计算器的自动计算功能

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:21:09
（在线等）一个窗体。四个TEXT每个TEXT都是输入数字的且小数点后面两位小数。
当text1和text2输入数字后，text4 自动显示，（text4显示的内容为text1的数除以text2的数加1（比如说text2输入的是0.4，那么text4的内容则是text1的数值除以1.04））text3的内容也自动显示，显示的内容是text4的内容乘以text2的内容。麻烦高人高人指点一下，给个表达式好吗。谢谢

（请帮忙写出完整代码。）

Dim T1C As Boolean
Dim T2C As Boolean '分别用来判断TEXT1 TEXT2中的字符是否改变

Private Sub Form_Load()
T1C = False
T2C = False
End Sub

Private Sub Text1_Change()
T1C = True
If T2C = True Then 'TEXT1 TEXT2 都改变
Text4 = CStr(Val(Text1) / (1 + Val(Text2)))
Text3 = CStr(Val(Text2) * Val(Text4))
End If
End Sub

Private Sub Text2_Change()
T2C = True
If T1C = True Then 'TEXT1 TEXT2 都改变
Text4 = CStr(Val(Text1) / (1 + Val(Text2)))
Text3 = CStr(Val(Text2) * Val(Text4))
End If
End Sub

Function SumT()
Text4.Text = Val(Text1.Text) / (Val(Text2.Text) + 1)
Text3.Text = Val(Text4.Text) * Val(Text2.Text)
End Function

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Text1_Change()
SumT
End Sub

Priva