直角三角形一条直角边长度固定为8,且斜边长度不超过100,要求找出所有满足条件的整数边长的直角三角形
问题描述：
直角三角形一条直角边长度固定为8,且斜边长度不超过100,要求找出所有满足条件的整数边长的直角三角形
要VB语言
急!
答
用一个循环就可以了：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 "查找结束!"...