Private Sub Command1_Click()Dim a As IntegerDim b As IntegerIf (a + b) ^ 2 = a ^ 2 + b ^ 2 + a * a * b Then MsgBox ("符合平方完全公式")End IfEnd Sub
