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