Question

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

Answer 1

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 = ""
End If

End Sub

Private Sub Text2_Change()
AAA
End Sub