vb输出30以内满足直角三角形三条边的整数组合。例如，3.4.5就是一个整数组合，将符合条件的组

vb输出30以内满足直角三角形三条边的整数组合。例如，3.4.5就是一个整数组合，将符合条件的组

Private Sub Form_Load()
   Me.AutoRedraw = True
   Dim i As Integer, j As Integer, k As Integer, n As Integer
   For i = 1 To 28
      For j = 1 To 29
         For k = 1 To 30
            If i ^ 2 + j ^ 2 = k ^ 2 And i <= j Then
               Print i; j; k
               n = n + 1
            End If
         Next k
      Next j
    Next i
    Text1.Text = Str(n)
End Sub

我暂时保留我的看法！