设计一个算法,求1000以内的勾股数

来源：百度知道 编辑：UC知道 时间：2024/09/21 08:57:30
即VB程序~~自然语言的吧~~~流程能打出来更好
好的加~
自然语言法吧~~
就是设计算法~~初步~~那个看完我自己编~~麻烦了~~谢谢~！！！！！

Dim i
Private Sub Command1_Click()
i = 1
Label1.Caption = "" '清空LABEL1
Timer1.Interval = 200 '定义时间控件为200豪秒
End Sub
Private Sub Timer1_Timer()
For ft2 = 1 To i 'ft2为股
For ft1 = 1 To i 'ft1为勾
If ft1 * ft1 + ft2 * ft2 = i * i Then '勾平方+股平方=弦平方吧~,如果成立则输出到LABEL1中
Label1.Caption = Label1.Caption & ft1 & "-" & ft2 & "-" & i
End If
If i = 1000 Then '当弦数据运行到1000时运算结束
Timer1.Enabled = False
End If
Next ft1
Next ft2
i = i + 1
End Sub
'创建一个LABEL,一个TIMER,一个COMM
'注,跟以下放法运算一样~用TIMER来进行时间控制运算!不会由于循环过多,造成电脑死机~
'For ft3 = 0 To 1000
'For ft2 = 1 To i
'For ft1 = 1 To i
'Next ft1
'Next ft2
'Next ft3

dim i,j,k
private sub command1_click()
for i=0 to 1000
for j=0 to 1000
for k=1 to 1000
if k*k=j*j+i*i and k<j+i and j<k+i and i<k+j then