输出20以内的勾股数，满足x*x+y*y=2*2,并要求1;每组出现一次，2；打印形式：3**2+4**2=5**2.

Question

使用调用函数的方式

Answer 1

VB程序如下：

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim k As Integer

For i = 1 To 20

   For j = i + 1 To 20

       For k = j + 1 To 20

         If ggs(i, j, k) = True Then

         Print i, j, k

         End If

        Next k

    Next j

Next i

End Sub

Public Function ggs(a As Integer, b As Integer, c As Integer) As Boolean

If a * a + b * b = c * c Then ggs = True

End Function