作业帮 > 数学 > 作业

若直角三角形的三条边都为整数,已知一条直角边为8,斜边长度不超过100,问满足情况的直角三角形有几个 vb

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/15 02:13:31
若直角三角形的三条边都为整数,已知一条直角边为8,斜边长度不超过100,问满足情况的直角三角形有几个 vb
Private Sub Form_Click()
Dim a As Single, b As Integer, c As Integer
Form1.Cls
For c = 8 To 100
a = Sqr(c * c - 64)
If a = Int(a) And a > 0 Then
Print "a="; a & ";b=8;" & "c=" & c
End If
Next
End Su