用VB设计加减法程序中代码哪里错了?

Private Sub Command1_Click()
Dim A As Single
Dim B As Single
Dim C As Single
A=int(text1.text)
B=int(text2.text)
C = A + B
Text3.Text = C

End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
End Sub

Private Sub Command1_Click()
Text3.Text = val(text1)+val(text2)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

告诉你一个高手的网站 他人很不错的 你可以去请教他
www.hacksa.cn