Private Sub Command1_Click()
Dim a, b, x
a1 = Val(Text1)
a = 20
Do While a <= a1
b = 19
Do While b < a And a <= a1
x = a ^ 2 - b ^ 2
y = 2 * a * b
z = a ^ 2 + b ^ 2
s = s + 1
s1 = s1 & "a=" & a & " b=" & b & " x=" & x & " y=" & y & " z=" & z & " √x=" & Int(x ^ 0.5)
s1 = s1 & " √y=" & Int(y ^ 0.5) & " √z=" & Int(z ^ 0.5) & vbCrLf
b = Val(b + 1)
Loop
a = (a + 1)
Loop
If s > 0 Then
Text2 = "a1=" & a1 & " s=" & s & vbCrLf & s1
Else
Text2 = "wu jie"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""