Private Sub Command1_Click()
a = Val(InputBox("请输入第一个数", "数据输入"))
b = Val(InputBox("请输入第二个数", "数据输入"))
Picture1.Cls
Picture1.Print a; "+"; b; "="; a + b,
Picture1.Print a; "-"; b; "="; a - b
Picture1.Print a; "*"; b; "="; a * b,
Picture1.Print a; "/"; b; "="; a / b
End Sub
Private Sub Command2_Click()
Picture1.Cls
End Sub
Private Sub Command3_Click()
MsgBox "使用四次Print方法实现两行样例输出", 48 + 0, "程序要求"
End Sub
Private Sub Command4_Click()
a = Val(Text1)
b = Val(Text2)
Text3 = a & "+" & b & "=" & a + b & vbCrLf
Text3 = Text3 & a & "-" & b & "=" & a - b & vbCrLf
Text3 = Text3 & a & "*" & b & "=" & a * b & vbCrLf
Text3 = Text3 & a & "/" & b & "=" & a / b & vbCrLf
End Sub
Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Command6_Click()
MsgBox "使用四次Print方法实现两行样例输出", 48 + 0, "程序要求"
End Sub
