Cómo usar VB para escribir un programa para encontrar el valor aproximado de una ecuación usando el método de bisección. Tengo el diagrama de flujo. !

Ya te he dado la precisión de 0.000001

Para obtener la precisión de 0.1, puedes llamar a MsgBox GetX(1, 2, 0.1) de esta manera

El siguiente es el código

Opción explícita

Private Sub Form_Load()

MsgBox GetX(1, 2)

End Sub

Función GetX(ByVal LowNum como único, ByVal TopNum como único, ByVal N opcional como único = 0.000001) como único

Dim LowFx como único, TopFx como único

Atenuar MidX como único, MidFx como único

LowFx = GetFx(LowNum)

TopFx = GetFx(TopNum)

MidX = (LowNum TopNum) / 2

Si TopFx - LowFx <= N Entonces

GetX = MidX

Si no

MidFx = GetFx(MidX)

Si Sgn (MidFx) = 0 Entonces

GetX = MidX

ElseIf Sgn(MidFx) * Sgn(LowFx) gt; GetX = GetX(MidX, TopNum, N)

Else

GetX = GetX(LowNum, MidX, N)

End If

Finalizar si

Finalizar función

Función GetFx(ByVal X As Single) Como Single

GetFx = 2 ^ X 3 * X - 7

Finalizar función