编写程序,找出一个4位数的完全平方数,该数减去1111后,结果仍是一个完全平方数.（完全平方数是一个整数

Question

编写程序,找出一个4位数的完全平方数,该数减去1111后,结果仍是一个完全平方数.（完全平方数是一个整数

Answer 1

Private Sub Command1_Click()
Dim i%
For i = 1112 To 9999
If W(i) And W(i - 1111) Then Print i
Next
End Sub
Private Function W(i As Integer) As Boolean
W = False
If Sqr(i) = Int(Sqr(i)) Then W = True
End Function
'结果＝3136