找出100以内的所有勾股数,一次输出五组的VB代码
发布网友
发布时间：2024-12-24 14:45
共1个回答
热心网友
时间：5分钟前
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
