查人人中国名人网时空旅者的王座txt下载:一个VB编程题希望大家帮帮忙
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/10 06:11:35
勾股定理中3个数的关系是:a2+b2=c2.编写程序,输出30以内满足上述关系的证书组合,例如3,4,5就是一个整数组合
不好意思错了 我把上面这个改一下
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 3 To 30
For j = 4 To 30
For k = 5 To 30
If (i * i + j * j) = k * k Then
Print "i="; i; "j="; j; "k="; k
End If
Next k
Next j
Next i
End Sub
我再改一下：
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Double
For i = 1 To 30
For j = 1 To 30
k = Sqr(i * i + j * j)
if k = Int(k) And k<=30 Then Print i & "^2+" & j & "^2=" & k & "^2"
Next j
Next i
End Sub
for i=1 to 30
for j=1 to 30
for k=1 to 30
if (i*i+j*j)=k*k then
print i
print j
print k
end if
next k
next j
next i