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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/14 16:05:06
找出100以内的所有勾股数,一次输出五组的VB代码
x){ֹi.C'>mk}>Ygó9OhZl';Ybd'<Td m)6CΆ:. (,K,IU.MRpMK1wL+PPp/RTU0TWBij P9KD6(IZA3 S ; HL !y @w(dZ+dY+dX)AFY4+( #ZQԧ vKF 1

找出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