勾股定理中三个数的关系是a*a+b*b=c*c.编写程序,输出30以内满足上述关系的整数组合.例如3,4,5就是一个满足要求的整数组合Private Sub Command_Click()End Sub

Question

勾股定理中三个数的关系是a*a+b*b=c*c.编写程序,输出30以内满足上述关系的整数组合.例如3,4,5就是一个满足要求的整数组合
Private Sub Command_Click()
End Sub

Answer 1

既然是组合,那就应该考虑到排列不同但相同组合,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