VB编写程序,找出满足下述条件的所有四位自然数（在线等）

来源：百度知道 编辑：UC知道 时间：2024/05/23 19:19:25
（1）它是一个完全平方数：
（2）它减去一个每位数字均相同的四位自然数后，仍然是一个完全平方数
例如：3136-1111=2025（2025又是一个完全平方数）
我要求的是用VB怎样编程算出是3136
最后的答案好像有4个分别是：3136、4489、6084、7921
我就是想知道算法
代码请写完整了，用窗体激活事件

在窗体上建立一命令按钮，单击按钮可执行下列程序

Private Sub Command1_Click()
Dim a As Boolean, d As Boolean
Dim b As Long
Dim c As Integer

For i = 1000 To 9999
a = test(i)
If a = True Then
For c = 1 To 9
b = i - Val(String(4, Trim(Str(c))))
If b < 0 Then Exit For
d = test(b)
If d = True Then
Print i
Exit For
End If
Next
End If
Next
Print k
End Sub

'函数test 测试一个数是否是完全平方数
Private Function test(ByVal x As Long) As Boolean
If Int(Sqr(x)) = Sqr(x) Then
test = True
Else
test = False
End If
End Function

什么意思？举个例子说明一下。。。