رابطه فیثاغورس در vb6

بچه ها یک سوال خیلی ضروری دارم لطفا کمکم کنید

من یک سورسی در اینترنت برای قضیه فیثاغورس پیدا کردم

FOR A=1 TO 500

FOR B=1 TO 500

FOR C=1 TO 500

IF (A*A=B*B+C*C)OR(B*B=A*A+C*C)OR(C*C=A*A+B*B) THEN

PRINT "A=";A,"B=";B,"C=";C

END IF

NEXT C

NEXT B

NEXT A

حالا نمیدونم باید چ کار کنم اما به نظرم کامل نیست اما یک برنامه ی دیگه دیدم که به صورت صحیح جوابش رو میده اما سورسش رو ندارم اگه کسی میتونه بنویسه یا داره لطفا بهم بده فیلم رو هم گذاشتم

[URL="http://s4.picofile.com/file/7748671933/Fisaghores.exe.html"]http://s4.picofile.com/file/7748671933/Fisaghores.exe.html[/URL

و اینم خود برنامه :

http://s4.picofile.com/file/77486730..._com_.zip.html

ممنون البته خود سورس در وبلاگ هست اما 20 هزار تومان میفروشد و لینکش دارای رمز میباشد

با تشکر

موفق باشید