text4的代码是:text4.text=val(text1.text)+val(text2.text)+val(text3.text),有什么不懂得还可以问我
在text1 text2 text3这三个文本框的textchange事件中调用一下过程
call calc()
'这样你在text1 text2 text3中任一文本框输入内容text4都会自动将结果计算出来
private sub calc()
text4.text=val(text1.text)+val(text2.text)+val(text3.text)
end sub
Text4.Text =Text1.Text & "+"" &Text2. Text & "+" & Text3.Text & "=" & Val(Text1.Text) + Val(Text2. Text) + Val(Text3.Text)
Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)