求(180,250)之间的弦数的和,(若某正整数的平方等于另两个正整数平方

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/15 07:11:24

求(180,250)之间的弦数的和,(若某正整数的平方等于另两个正整数平方
求(180,250)之间的弦数的和,(若某正整数的平方等于另两个正整数平方

求(180,250)之间的弦数的和,(若某正整数的平方等于另两个正整数平方
代码:
Private Sub Command1_Click()
Dim i As Integer,j As Integer,k As Integer
For i = 100 To 200
For j = 1 To i - 1
For k = 1 To i - 1
If i ^ 2 = j ^ 2 + k ^ 2 Then
Print "求[100,200]之间最小的弦数是:"
Print i
Print Trim(Str(i)) + "^2=" + Trim(Str(j)) + "^2+" + Trim(Str(k)) + "^2"
Exit Sub
End If
Next k
Next j
Next i
End Sub