(x-2000)(x-2001)=12
是要用程序來解了?還是直接計算呢?
1、直接計算：
現(xiàn)假設(shè)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) & "是否繼續(xù)求解?",vbYesNo) = vbNo Then Exit Do
End If
i = i + 1
Loop
End Sub