帮忙做道题目,用循环语句做一个题目,把3条边都在50内的整数的所有可以成立的RT三角型的边长都表示出来
热心网友
窗体需要1个command控件，不要忘记哦！！！！！private sub command1_click()for a=3 to 30 '列举所有满足条件的1到50的数，去掉不可能的数，减少运行for b=4 to 50for c=5 to 50if a+bc or ab then goto 1 '判断能否满足三角形,并且去掉重复if c^2=a^2+b^2 then print a; b; c 'RT三角形的条件1next cnext bnext aend sub 或Private Sub command1_click()Dim a As Single, b As Single, c As SingleFor a = 3 To 30'列举所有满足条件1到50的数，去掉不可能的数，减少运行For b = 4 To 50For c = 5 To 50If a + b c And Abs(a - b) < c And a < b Then '判断能否满足三角形,并且去掉重复If c ^ 2 = a ^ 2 + b ^ 2 Then Print a; b; c 'RT三角形的条件，并且打印出来End IfNext cNext bNext aEnd Sub希望你的VB越学越好！学习进步！！！！！！你可以复制到VB中就可以了！！！。
热心网友
这是最简单一种版本,但可能速度比较慢.窗体就只需要1个command控件private sub command1_click()for a=1 to 50 '列举所有1到50的数for b=1 to 50for c=1 to 50if a+bc then goto 10 '判断能否满足三角形,这样可以减少运算if c*c=a*a+b*b then print a,b,c 'RT三角形的条件next cnext bnext a10end sub
热心网友
法国北方
热心网友
题目没看懂