一道vb题

因为只是要求求出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 收起