找出100以內的勾股數。所謂勾股數就是3個正整數滿足運算式a^2+b^2=c^2
uj5u.com熱心網友回復：
最笨的方法：
Sub Test()
''參考microsoft scripting runtime
Dim Sum(1 To 100) As Long, iDic As New Dictionary
Dim i As Integer, j As Integer, k As Long
For i = 1 To 100
Sum(i) = i ^ 2
iDic(CStr(Sum(i))) = "ok"
Next
For i = 1 To 99
For j = i + 1 To 100
k = Sum(i) + Sum(j)
If iDic.Exists(CStr(k)) Then
Debug.Print i, j, Sqr(k)
End If
Next
Next
End Sub
uj5u.com熱心網友回復：
最小的勾股數是：3，4，5那你就不停的翻倍嘛。最多20倍。
for i= 1 to 20
me.print 3*i;4*i;5*i
next
uj5u.com熱心網友回復：
你牛！ 不服不行啊、、、
uj5u.com熱心網友回復：
不過這樣子不行 還有沒參考到的 比如 5 12 13等
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/88107.html
標籤：網絡編程
上一篇：求助，ATM機vb程式