题目

(x-2000)(x-2001)=12

提问时间：2020-11-14

答案

(x-2000)(x-2001)=12
是要用程序来解了?还是直接计算呢?
1、直接计算：
现假设Y为：X-2000 带入公式得出：Y(Y-1)=12
Y^2-Y+1/4=12+1/4
(Y-1/2)^2=49/4
Y=4或者Y=-3
将X带入其中得出：
(1)X-2000=4
X=2004
(2)X-2000=-3
X=1997
2、用程序的方式：
Private Sub Command34_Click()
Dim i As Long
i = 0
Do While True
If (i - 2000) * (i - 2001) = 12 Then
If MsgBox(" X = " & i & Chr(13) & Chr(13) & "是否继续求解?",vbYesNo) = vbNo Then Exit Do
End If
i = i + 1
Loop
End Sub