求解方程x^6-5*x^5+3*x^4+x^3-7*x^2+7*x-20=0区间在【-2,5】的两个

求解方程x^6-5*x^5+3*x^4+x^3-7*x^2+7*x-20=0区间在【-2,5】的两个

　　Private Sub form_Click()　　Dim x1,x2,xa,xb　　x1 = -2:x2 = -1:x = -1.5　　Do Until Abs(x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20) 　　If x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20 > 0 Then　　x1 = x:x = (x1 + x2) / 2　　Else　　x2 = x:x = (x1 + x2) / 2　　End If　　Loop　　xa = x　　x1 = 4:x2 = 5:x = 4.5　　Do Until Abs(x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20) 　　If x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20 　　x1 = x:x = (x1 + x2) / 2　　Else　　x2 = x:x = (x1 + x2) / 2　　End If　　Loop　　xb = x　　MsgBox 该方程在【-2,5】区间的两个零点的近似值分别是 & xa & 和 & xb　　End Sub　　Private Sub Form_Load()　　Me.AutoRedraw = True　　Me.Width = 8000　　Me.Height = 8200　　Me.Scale (-6,400)-(6,-400)　　'x^6-5*x^5+3*x^4+x^3-7*x^2+7*x-20=0　　Line (-6,0)-(6,0)　　Line (0,400)-(0,-400)　　For i = -5 To 5　　Line (i,20)-(i,0)　　CurrentX = CurrentX - 0.3　　Print i　　Next i　　For x = -2 To 5 Step 0.001　　j = x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 20　　PSet (x,j)　　Next x　　End Sub

这个问题我还想问问老师呢

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息