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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 14:19:06
(x-2000)(x-2001)=12

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

(x-2000)(x-2001)=12
(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