问一个VB代码问题～～

2025-12-03 21:43:24

推荐回答（2个）

回答1：

我认为楼上的方法不好，问题是：“满足勾股定理关系的3个数的整数组”。我认为再添加一个数组变量a（0 to 2),然后再进行数组的输出，即可！！

回答2：

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