Private Sub Form_Click()
Print "勾股数："
Print " a", " b", " c"
For a = 1 To 100
For b = a To 100
c = Sqr(a ^ 2 + b ^ 2)
If c = Fix© And c <= 100 Then Print a, b, c
Next b
Next a
End Sub
Print "勾股数："
Print " a", " b", " c"
For a = 1 To 100
For b = a To 100
c = Sqr(a ^ 2 + b ^ 2)
If c = Fix© And c <= 100 Then Print a, b, c
Next b
Next a
End Sub
