vb如何编写完整代码：分别在text1和text2中输入两个不为零的整数a和b，求a和b和的平方，text3=c

Private Sub Text1_Change() AAA End Sub Sub AAA() Dim A As Integer, B As Integer A = Val(Text1.Text) B = Val(Text2.Text) If A 0 And B 0 Then C = (A + B) ^ 2 Text3.Text = C Else Text3.Text = &qu