来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/20 01:34:44
找出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 Su