你tm像个萨比233

去你的

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a + b
End Sub
Private Sub Command2_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a - b
End Sub
Private Sub Command3_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a * b
End Sub
Private Sub Command4_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a / b
End Sub
Private Sub Form_Load()
End Sub

WangTanXiao：
I have a birthday party at 7.pm next friday.And i want to invit you to my party.All of my families are glad to see youcoming there to celebrite for me.I blieve you will have a good time.yours HuXueWen

http://SecureCRSecureFXPortable