Лабораторная работа 5.2. Алгоритмы ветвления с применением оператора Case

Задание: Написать приложение для решения квадратного уравнения, записанного в форме Ax²+Bx+C=0

1. Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)

2. Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)

3. Создайте на форме элементы управления, как показано на рисунке 5.2.

Рисунок 5.2. Элементы управления и их свойства к лабораторной работе 5.2.

4. Откройте редактор кода и напишите следующий код:

Private Sub cmdCalc_Click()

Dim dblA As Double

Dim dblB As Double

Dim dblC As Double

Dim dblD As Double

Dim dblX1 As Double

Dim dblX2 As Double

dblA = txtA.Text

dblB = txtB.Text

dblC = txtC.Text

'Рассчет дискриминанта

dblD = dblB ^ 2 - 4 * dblA * dblC

'Выбор решения, в зависимости от дискриминанта

Select Case dblD

Case Is = 0

dblX1 = -dblB / (2 * dblA)

MsgBox "Дискриминант=0, X1=X2=" & dblX1

Case Is > 0

dblX1 = (-dblB + Sqr(dblD)) / (2 * dblA)

dblX2 = (-dblB - Sqr(dblD)) / (2 * dblA)

MsgBox "Дискриминант=" & dblD & " X1=" & dblX1 & " X2=" & dblX2

Case Else

MsgBox "Дискриминант=" & dblD & ", следовательно корней не существует"

End Select

End Sub

5. Выполните приложение.

Результат работы приложения: по заданным коэффициентам A, B и C при клике на кнопку с надписью «Найти корни» приложение находит корни квадратного уравнения.

Дата добавления: 2014-12-23