vb题 编写程序，输出30以内满足a*a+b*b=c*c关系的整数组合

Private Sub Command1_Click()
For i = 1 To 30
For j = i To 30
For k = 1 To 30
s1 = i * i + j * j
s2 = k * k
If s1 = s2 Then Print i, j, k
Next k
Next j
Next i
End Sub

Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Long, l As Single
For i = 1 To 30
k = i * i
For j = 1 To Sqr(900 - k)
l = Sqr(k + j * j)
If l = Int(l) Then Print i; "*"; i; "+"; j; "*"; j; "="; l; "*"; l
Next j
Next i
End Sub

关于评价的评价：
一、
wuchao1235 你刚才回答的30以内的等式，结果是绝对正确的。 2008-09-25 21:35

你刚才回答的30以内的等式，结果是绝对正确的。
只是效率有点低了。与君共勉。

二、北方的飞雪 你真可爱 2008-09-25 21:54

你真可爱
算法的设计中，效率是很重要的一点。
能少一层循环，是求之不得的，能把一层循环的次数减少也是很不容易的。
祝你进步。

应该用3个循环吧，看一下谁的是3个