非常感谢！已经结帖，记分用完了，没法给你得分了，抱歉！
感觉快了不少，原来的程序没有计时程序，修改后的程序代码如下：
Private Sub Command1_Click()
'可以，10万内不到1分钟
Dim a As Long, b As Long, s As Long
Dim c As Double
Dim x As Double
Dim y As Double, js As String

Text2 = ""
a = Val(Text1)
t = Timer
DoEvents

For x = 1 To a
    y = Abs(x * x + 1259) / 629
    y = Sqr(y)
    If Int(y) = y Then       '得到是一个整数
      If y < a Then   '在输入范围内
        '得到一个解
        s = s + 1
        js = js & "x=" & x & "  y=" & y & vbCrLf
      End If
    End If
Next x

If s > 0 Then
    Text2 = js & vbCrLf & Timer - t
  Else
    Text2 = "  wu  jie"
End If


End Sub

Private Sub Command2_Click()

Text1 = ""
Text2 = ""

End Sub

只能算10000 0000 内的数，超过这个计算结果就可能不对了。

谢谢指导！我是用自己编辑的程序，速度太慢！

vb6.0咋无法设定Decimal类型？网上查询vb语言有这种数据类型呢

Private Sub Command1_Click()
'可以，10万内不到1分钟
Dim a As Long, b As Long, s As Long
Dim c As Double
Dim x As Double
Dim y As Double, js As String

Text2 = ""
a = Val(Text1)
t = Timer
DoEvents

For x = 1 To a
    y = Abs(x * x - 39697) / 53
    y = Sqr(y)
    If Int(y) = y Then       '得到是一个整数
      If y < a And x * x >= 39697 Then '在输入范围内
        '得到一个解
        s = s + 1
        js = js & "x=" & x & "  y=" & y & vbCrLf
      End If
    End If
Next x

If s > 0 Then
    Text2 = js & vbCrLf & Timer - t
  Else
    Text2 = "  wu  jie"
End If


End Sub

Private Sub Command2_Click()

Text1 = ""
Text2 = ""

End Sub