直角三角形一条直角边长度固定为8,且斜边长度不超过100,要求找出所有满足条件的整数边长的直角三角形要VB语言急!_数学解答

直角三角形一条直角边长度固定为8,且斜边长度不超过100,要求找出所有满足条件的整数边长的直角三角形
要VB语言
急!

人气：496 ℃　时间：2020-06-15 03:00:48

解答

用一个循环就可以了：Dim I%,J%,L#For I = 1 To Int(Sqr(100 ^ 2 - 8 ^ 2))L = Sqr(I ^ 2 + 8 ^ 2)If L = Int(L) ThenPrint "直角三角形三边分别为：8," & I & "," & LEnd IfNext IPrint "查找结束!"...