勾股定理中三个数的关系是a*a+b*b=c*c。编写程序，输出30以内满足上述关系的整数组合。

既然是组合，那就应该考虑到排列不同但相同组合，1楼的有大量的重复，而且，效率很低，如果你要找的是100以内，那就相当慢了，我改进了一下：用2重循环来做
Private Sub Command1_Click()
Dim Max As Integer, I As Integer, J As Integer, K
Max = 30
For I = 3 To Max - 2
For J = I + 1 To Max - 1
K = Sqr(I ^ 2 + J ^ 2)
If K = Int(K) And K <= Max Then Print I, J, K
Next
Next
End Sub

Private Sub Command1_Click()
Dim n
dim I
dim J
dim k
n=inputbox(输入n值）
For I = 3 To n - 2
For J = I + 1 To n - 1
K = Sqr(I ^ 2 + J ^ 2)
If K = Int(K) And K <=n Then Print I, J, K
Next
Next
End Sub
想找多少以内就是多少

form1.show
for a=1 to 30
for b=1 to 30
for c=1 to 30
if a^2+b^2=c^2 then
print a,b,c
next c
next b
next a