Лекция: Задача для нахождения решения квадратного уравнения.

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single

Dim D As Single, x1 As Single, x2 As Single

re:

a = Val(InputBox(«Введите а»))

If a = 0 Then

MsgBox «а не должно быть равно 0»

GoTo re

End If

b = Val(InputBox(«Введите b»))

c = Val(InputBox(«Введите c»))

D = b ^ 2 — 4 * a * c

If D < 0 Then

MsgBox «уравнение действительных корней не имеет»

Else

If D = 0 Then

MsgBox «уравнение имеет 2 равных действительных корня x1=x2=» & -b / (2 * a)

Else

MsgBox «уравнение имеет 2 разных действительных корня» & vbCrLf & _

«x1= » & (-b + Sqr(D)) / (2 * a) & _

vbCrLf & " x1=" & (-b — Sqr(D)) / (2 * a)

End If

End If

End Sub

(Подставляем коэффициенты в Textbox, активируем Commandbutton получаем корни )

ВЫВОДЫ:

Проделав данную лабораторную работу, мы научились составлять алгоритм, эскиз и программный код для решения задач.