高校问答重庆高楼看夜景:问一个VB代码问题～～
来源：百度文库 编辑：高校问答 时间：2024/05/09 08:58:13
在50以内，找出满足勾股定理关系的3个数的整数组，并在窗体上输出
流程图也可以～请各位大大帮下忙～～>_<
流程图也可以～请各位大大帮下忙～～>_<
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 50
For j = 1 To 50
For k = 1 To 50
If i * i + j * j = k * k Then
MsgBox "i:" & i & " j:" & j & " k:" & k
End If
Next
Next
Next
End Sub
我认为楼上的方法不好，问题是：“满足勾股定理关系的3个数的整数组”。我认为再添加一个数组变量a（0 to 2),然后再进行数组的输出，即可！！