Simone
Private Sub Text1_Change() 'text1文件框的改余枝动事件中增加代码 If Text1.Text <> "" And Text2.Text <> "" Then '两个框都有内容时计算text3的雀兄值 Text3.Text = Val(Text1.Text) * Val(Text2.Text) End If End SubPrivate Sub Text2_Change() 'text2文件框的改动事件中增加顷毁袭代码 If Text1.Text <> "" And Text2.Text <> "" Then '两个框都有内容时计算text3的值 Text3.Text = Val(Text1.Text) * Val(Text2.Text) End IfEnd Sub
