因为只是要求求出30以内的数字所以计算的也不是很多就没有考虑什么算法问题了,直接用了最简单也是最笨的穷举方法Dim a, b, c As IntegerDim d As DoubleFor a = 1 To 30 For b = a To 30 d = Sqr(a * a + b * b) For c = 1 To 30 If c = d Then Text1.Text = Text1.Text & vbCrLf & "a=" & a & " b=" & b & " c=" & c End If Next NextNext