VB 制作的计算器

自己编写的VB计算器，以下是代码 PrivateSubCommand1_Click() a=Val(Text1.Text) b=Val(Text2.Text) c=a+b Text3.Text=c EndSub PrivateSubCommand2_Click() a=Val(Text1.Text) b=Val(Text2.Text) c=a-b Text3.Text=c EndSub PrivateSubCommand3_Click() a=Val(Text1.Text) b=Val(Text2.Text) c=a