Курсовая работа: Проект программного модуля для нахождения корня уравнения

If ((f(x1) * f(a)) > 0) Then 'проверка условия

a = x1 'изменение начала отрезка

End If

If ((f(x1) * f(b)) > 0) Then 'проверка условия

b = x1 'изменение конца отрезка

End If

If (Abs(x2 - x1) <= 0.001) Then 'проверка условия

Exit Do 'выход из цикла

End If

Loop

Label4.Caption = x1

End Sub

Private Sub CommandButton3_Click()

MsgBox "Программа уточнения корня уравнения x^3-x-0,3=0 методом хорд." & vbCr & "Разработчик программы: Шараваров Д.", vbInformation, "О программе"

End Sub

Private Sub CommandButton4_Click()

TextBox1.Value = ""

TextBox2.Value = ""

Image1.Visible = False

CommandButton5.Enabled = True

CommandButton4.Enabled = False

End Sub

Private Sub CommandButton5_Click()

'проверяем введены ли все данные

If (TextBox1.Value = "" Or TextBox2.Value = "") Then

MsgBox ("Введите начало и конец отрезка!")

Exit Sub

End If

'проверяем правильно ли введены данные(a<b)