Private Sub Command1_Click()
Select Case Text3.Text
Case "+"
Text4.Text = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Text4.Text = Val(Text1.Text) - Val(Text2.Text)
Case "*"
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Case "/"
Text4.Text = Val(Text1.Text) / Val(Text2.Text)
End Select
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Text4_Change()
End Sub
请参考附件。
编程序设计一个简易的计算器,
你这个是大约什么时候需要,这个要编写程序
你怎么说