y = sqr( x * x - 125 + 29 )
咋是无效的调用过程或参数？
明白了加个绝对值！！

[此贴子已经被作者于2025-3-13 07:55编辑过]

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

a = Val(Text1)
For x = 1 To a
y = Abs(x * x - 139) / 13
y = y ^ 0.5
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
Else
Text2 = "  wu  jie"
End If


End Sub

Private Sub Command2_Click()

Text1 = ""
Text2 = ""

End Sub

y = y ^ 0.5改为 y=sqr(y)
试试下面的代码：

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 - 139) / 13
    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

x=7875  y=314
x=9851725  y=392814
x=438642128  y=17489807
x=778845506  y=31054604
x=892246632  y=35576203

50.96484

非常感谢！已经结帖，记分用完了，没法给你得分了，抱歉！
感觉快了不少，原来的程序没有计时程序，修改后的程序代码如下：
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 内的数，超过这个计算结果就可能不对了。

因了超过 long 范围
超范围的整数计算，需要上 大数运算 ，
这个不要用VB6 ，因为没有现成的大数运算库。

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

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