直角三角形的一条直角边长为6,另外两边长为自然数,则满足要求的直角三角形共有

两种情况
1. 6是斜边，则另外两条边A*A+B*B=36，不可能。
2。6是直角边 则另外两条边A*A-B*B=36
即（A+B）（A-B）=36=1*36=2*18=3*12=4*9=6*6
所以 再分五种情况
a。 A+B=36
A-B=1 A，B不是自然数
b. A+B=18
A-B=2 A=10 B=8 成立
c. A+B=12
A-B=3 A，B不是自然数
d. A+B=9
A-B=4 A，B不是自然数
e. A+B=6
A-B=6 B=0 不成立
综上所述 只可能 是一种情况 一条边是8 另一条边是10

一个，当一条直角边为八的时候~具体解答~
Dim a As Single
For a = 6 To 1E+16
b = Sqr(a ^ 2 - 36)
If b = Fix(b) Then Print b
Next a
我都算到10^16了，应该够了吧~