7个回答
展开全部
Dim s, a, b As Double
Private Sub Command1_Click()
s = Text1.Text
b = Text2.Text
a = s + b
End Sub
Private Sub Command2_Click()
a = Text1.Text - Text2.Text
End Sub
Private Sub Command3_Click()
a = Text1.Text * Text2.Text
End Sub
Private Sub Command4_Click()
a = Text1.Text / Text2.Text
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command6_Click()
Text3.Text = a
End Sub
Private Sub Command1_Click()
s = Text1.Text
b = Text2.Text
a = s + b
End Sub
Private Sub Command2_Click()
a = Text1.Text - Text2.Text
End Sub
Private Sub Command3_Click()
a = Text1.Text * Text2.Text
End Sub
Private Sub Command4_Click()
a = Text1.Text / Text2.Text
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command6_Click()
Text3.Text = a
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询