找出100以内的所有勾股数,一次输出五组的VB代码

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/08 21:38:20
找出100以内的所有勾股数,一次输出五组的VB代码

找出100以内的所有勾股数,一次输出五组的VB代码
找出100以内的所有勾股数,一次输出五组的VB代码

找出100以内的所有勾股数,一次输出五组的VB代码
Private Sub Command1_Click()
For i = 1 To 98
For j = i + 1 To 99
For k = j + 1 To 100
If i * i + j * j = k * k Then Print i; j; k,: s = s + 1: If s Mod 5 = 0 Then Print
Next k, j, i
End Sub