vb输出30以内满足直角三角形三条边的整数组合。例如，3.4.5就是一个整数组合，将符合条件的组
答案:2 悬赏:60
解决时间 2021-01-17 21:23
- 提问者网友：遁入空寂
- 2021-01-17 01:46
vb输出30以内满足直角三角形三条边的整数组合。例如，3.4.5就是一个整数组合，将符合条件的组
最佳答案
- 二级知识专家网友：想偏头吻你
- 2021-01-17 01:58
Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Integer, j As Integer, k As Integer, n As Integer
For i = 1 To 28
For j = 1 To 29
For k = 1 To 30
If i ^ 2 + j ^ 2 = k ^ 2 And i <= j Then
Print i; j; k
n = n + 1
End If
Next k
Next j
Next i
Text1.Text = Str(n)
End Sub
Me.AutoRedraw = True
Dim i As Integer, j As Integer, k As Integer, n As Integer
For i = 1 To 28
For j = 1 To 29
For k = 1 To 30
If i ^ 2 + j ^ 2 = k ^ 2 And i <= j Then
Print i; j; k
n = n + 1
End If
Next k
Next j
Next i
Text1.Text = Str(n)
End Sub
全部回答
- 1楼网友：何以畏孤独
- 2021-01-17 02:16
我暂时保留我的看法！
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息