Trabajo

Public Class FrmMB
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Xr As Double
Dim iter As Double
Dim esAs Double
Dim ea As Double
Dim xrold As Double
Dim fxa As Double
Dim fxr As Double
Dim bisec As Double
Dim test As Double
Dim Xa As DoubleDim Xb As Double

If TxtXa.Text = "" Or TxtXb.Text = "" Then
MsgBox("Ingrese los valores para Xa y Xb")
Exit Sub
End If

Xa =Val(TxtXa.Text)
Xb = Val(TxtXb.Text)

iter = 0

es = CmbError.SelectedIndex + 1
Do

xrold = Xr
Xr = (Xa + Xb) / 2
If (Xr <>0) Then
iter += 1
ea = Math.Abs(Xr - xrold) / Xr * 100.0
fxa = Math.Pow(Math.E, -Math.Pow(Xa, 3)) - 2 * Xa + 1
fxr = Math.Pow(Math.E,-Math.Pow(Xr, 3)) - 2 * Xr + 1
test = fxa * fxr
If test < 0 Then
Xb = Xr
ElseIf (test > 0) Then
Xa =Xr
Else
ea = 0
End If
bisec = Xr
End If

Loop While (ea > es)

TxtRaiz.Text = Xr.ToStringTxtEa.Text = ea
TxtIteracion.Text = iter
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickMe.Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.TxtRaiz.Text = ""
Me.TxtEa.Text = ""Me.TxtIteracion.Text = ""
Me.TxtXa.Text = ""
Me.TxtXb.Text = ""
End Sub
Private Sub FrmMB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...