Private Sub Command1_Click()
'这个程序如何提高速度？算到10万内就需要几个小时呢
Dim a, b
a = Val(Text1)

Do While x <= a
x = x + 1
y = 0
Do While y <= a
y = y + 1
b = x ^ 2 - 2029 * y ^ 2
If b = -487 Then
s = s + 1

js = js & "x=" & x & "  y=" & y & vbCrLf
Else
js = js
End If

Loop
Loop

If s > 0 Then
Text2 = js
Else
Text2 = "  wu  jie"
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub

谢谢！感谢指导，给你加分！

我试试，非常感谢！

Private Sub Command1_Click()
'这次速度快了不少以前10分钟的计算这次是1分钟了
Dim a, b, s As Long
Dim x, y As Double
a = Val(Text1)
x = 0
Do While x <= a
x = x + 1
y = 0
Do While y <= a
y = y + 1
b = x ^ 2 - 125 * y ^ 2
If b = -29 Then
  s = s + 1
  js = js & "x=" & x & "  y=" & y & vbCrLf
  Exit Do
ElseIf b < -29 Then
  Exit Do
'else          '这二句都不要了
'js=js         '多余命令
End If


Loop
Loop

If s > 0 Then
Text2 = js
Else
Text2 = "  wu  jie"
End If


End Sub

Private Sub Command2_Click()

Text1 = ""
Text2 = ""

End Sub

Private Sub Command1_Click()
'这次也快以前10分钟的计算这次是1分钟了
Dim a, b, s As Long
Dim c
Dim x, y As Double
a = Val(Text1)
x = 0
Do While x <= a
x = x + 1
c = x ^ 2
y = 0
Do While y <= a
y = y + 1
b = c - 125 * y ^ 2
If b = -29 Then
  s = s + 1
  js = js & "x=" & x & "  y=" & y & vbCrLf
  Exit Do
ElseIf b < -29 Then
  Exit Do
'else          '这二句都不要了
'js=js         '多余命令
End If


Loop
Loop

If s > 0 Then
Text2 = js
Else
Text2 = "  wu  jie"
End If


End Sub

Private Sub Command2_Click()

Text1 = ""
Text2 = ""

End Sub

谢谢指导，我试试这个数据类型：
Dim c As Double

Private Sub Command1_Click()
'可以，5万内不到1分钟
Dim a, b, s As Long
Dim c As Double
Dim x, y As Double
a = Val(Text1)
x = 0
Do While x <= a
x = x + 1
c = x ^ 2
y = 0
Do While y <= a
y = y + 1
b = c - 125 * y ^ 2
If b = 29 Then
  s = s + 1
  js = js & "x=" & x & "  y=" & y & vbCrLf
  Exit Do
ElseIf b < 29 Then
  Exit Do
'else          '这二句都不要了
'js=js         '多余命令
End If


Loop
Loop

If s > 0 Then
Text2 = js
Else
Text2 = "  wu  jie"
End If


End Sub

Private Sub Command2_Click()

Text1 = ""
Text2 = ""

End Sub

谢谢指导！我试试这个单循环的：！！！！！！！！！！！！！！！！

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

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

50.96484