编辑一个程序，
使121+a的平方=b的平方，且a、b均为整数，求a、b的值

多谢。。。

121 + a^2 = b^2 (a, b爲整數)

(b+a)(b-a) = 121 = 11 * 11
整數 b+a = 11, b-a = 11,
a=0
b = 11
=========================
整數範圍內兩個數的和, 乘以這兩個數的差, 結果爲一個平方數,
這個問題沒有必要寫程式.
如果要寫的, 是一個數爲 0, 另一個數就是 這個平方的數位平方根 sqr(平方數)

Private Sub GetResult(ByVal dwSquare As Long, ByRef dwNum1 As Long, ByVal dwNum2 As Long)
dwNum1 = 0
dwNum2 = Sqr(dwSquare)
End Sub


----------
這個程式沒有任何意義......

好像少个答案吧（a=60,b=61）

Private Sub Command1_Click()
Dim a As Long
Dim b As Long
Dim c As Long
For a = 0 To 1000
c = 121 + a ^ 2
b = Sqr(c)
If b = Sqr(c) Then
Debug.Print a, b
End If
Next
End Sub

这道题没有限制取值范围吗？？？