vb编程求救

在一个直角三角形中,三条边a、b、c的长度为整数,且一条直角边a的长度已确定,斜边c的长度不能超过某数I,求出满足条件的所有直角三角形.（例如：一条直角边的长度为15,斜边的最大长度为30,则三条边的边长可能是15、8、17,或者是15、20、25.）

本人程序：

Dima,b,cAsInteger

a=Val(InputBox("请输入直角三角形的一个直角边","请输入数值"))

TextBox1.Text="用户输入的第一条直角边为"+CStr(a)

Forc=aTo2*a

b=Int(Math.Sqrt(c*c-a*a))

Ifc*c=a*a+b*bAndb>0Then

TextBox1.Text=TextBox1.Text+Chr(10)+"第二直角边"&b&"斜边"&c

Else:TextBox1.Text="没有符合条件的整数"

EndIf

Nextc

不管输入什么数都只输出没有符合条件的整数,应该怎么修改?