Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Задание: Написать приложение для решения квадратного уравнения, записанного в форме Ax2+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-28; Прочитано: 248 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!