Label1.AutoSize = True
Label1.Caption = ""
n = Val(Text1.Text)
For a = 0 To n
For b = 0 To n
For c = 0 To n
If 0 < a And a <= b And b <= c And c <= n Then
If a ^ 2 + b ^ 2 = c ^ 2 Then
Label1.Caption = Label1.Caption & a & "," & b & "," & c & vbCrLf
s = s + 1
End If
End If
Next
Next
Next
Label2.Caption = s
End Sub