关于关于Microsoft Visual Basic 6.0(企业版)的问题帮忙做道题目,用循环语句做一个题目,把3条边都在50内的整数的所有可以成立的RT三角型的边长都表示出来的问题
窗体需要1个command控件，不要忘记哦！！！！！
private sub command1_click()
for a=3 to 30 ‘列举所有满足条件的1到50的数，去掉不可能的数，减少运行
for b=4 to 50
for c=5 to 50
if a+bc or a>b then goto 1 ‘判断能否满足三角形,并且去掉重复
if c^2=a^2+b^2 then print a; b; c ‘RT三角形的条件
1
next c
next b
next a
end sub
或
Private Sub command1_click()
Dim a As Single, b As Single, c As Single
For a = 3 To 30’列举所有满足条件1到50的数，去掉不可能的数，减少运行
For b = 4 To 50
For c = 5 To 50
If a + b > c And Abs(a – b)
