最好要能直接复制上去的代码 谢谢大家了
假设Text1里放的是被加数/被减数,Text2里放的是加数/减数,label1的caption属性存放结果。单击Command1时执行加法,单击Command2时执行减法。程序如下:
Private Sub Command1_Click()
Label1.Caption = Str$(Val(Text1.Text) + Val(Text2.Text))
End Sub
Private Sub Command2_Click()
Label.Caption = Str$(Val(Text1.Text) - Val(Text2.Text))
End Sub
Private Sub Command1_Click()
Label1.Caption = Str$(Val(Text1.Text) + Val(Text2.Text))
End Sub
Private Sub Command2_Click()
Label.Caption = Str$(Val(Text1.Text) - Val(Text2.Text))
End Sub
温馨提示:答案为网友推荐,仅供参考