求勾股定理VB编码

来源：百度知道 编辑：UC知道 时间：2024/05/10 20:22:32
用LISTBOX列举出 每条边都小于350的所有符合的勾股数
勾股定理:h^2=a^2*b^2

For i = 1 To 349
For j = 1 To 349
For k = 1 To 349
if i^2 = j^2 + k ^2 then
list1.additem i & "^ =" & j & "^ +" & k & "^"
end if
next k
next j
next i

结果为：
5^ =3^ +4^
5^ =4^ +3^
10^ =6^ +8^
10^ =8^ +6^
13^ =5^ +12^
13^ =12^ +5^
15^ =9^ +12^
15^ =12^ +9^
17^ =8^ +15^
17^ =15^ +8^
20^ =12^ +16^
20^ =16^ +12^
25^ =7^ +24^
25^ =15^ +20^
25^ =20^ +15^
25^ =24^ +7^
26^ =10^ +24^
26^ =24^ +10^
29^ =20^ +21^
29^ =21^ +20^
30^ =18^ +24^
30^ =24^ +18^
34^ =16^ +30^
34^ =30^ +16^
35^ =21^ +28^
35^ =28^ +21^
37^ =12^ +35^
37^ =35^ +12^
39^ =15^ +36^
39^ =36^ +15^
40^ =24^ +32^
40^ =32^ +24^
41^ =9^ +40^
41^ =40^ +9^
45^ =27^ +36^
45^ =36^ +27^
50^ =14^ +48^
50^ =30^ +40^
50^ =40^ +30^
50^ =48^ +14^
51^ =24^ +45^