Команда MsgBox

Занятие 8. Решение КВУР. Команда MsgBox. Объекты и их свойства

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

End Sub

End If

Else

Алгоритм решения КВУР с оператором Print

Программа решения квадратного уравнения

Задача. Составить программу решения квадратного уравнения ax²+bx+c=0.

Из математики известен алгоритм решения:

1. Ввести значения коэффициентов a, b, c.

2. Найди дискриминант d=b²-4ac

3. Если d<0, то решения нет

4. Если d>0, то находим корни по формулам

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b - Sqr(d)) / (2 * a)

Рассмотрим несколько вариантов программ решения квадратного уравнения (КВУР).

Решение. Рассмотрим блок-схему решения данной задачи:

Введем вспомогательные переменные d, x1, x2.

Программа написана справа от блок-схемы.

Private Sub Command1_Click()

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

b = InputBox(“Введите b”)

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

d = b * b - 4 * a * c

If d < 0 Then

Print «Нет решения»

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b - Sqr(d)) / (2 * a)

Print “x1=”; X1

Print “x2=”; X2

Для выполнения программы нажимает клавишу F5. Вводим значения коэффициентов a, b, c. Результат работы программы читаем в форме.

Контрольные примеры:

a=1, b = 2, c = 1, ответ: x1 = -1, x2 = -1

a=5, b = 6, c = 7, ответ: Нет решения

a=1567, b = -110, c = -15, ответ: x1=0,13904296372987 x2=-6,88451334809872E-02

a=1.5, b = 1, c = -4, сообщение об ошибке. Следует нажать кнопку End.

a=1,5, b = 1, c = -4, ответ: x1 = 1,3333333, x2 = -2

Если запустить программу и ничего не вводить (a=0, b = 0, c = 0), а нажимать ОK (Enter), то появится сообщение об ошибке. Следует нажать кнопку End.

Сохраните проект в файле Fkvur1, Pkvur1

Язык VB позволяет выводить информацию на экран не только с помощью команды Print, но и другими способами, например, в системное окно вывода или в текстовое окно формы. Рассмотрим последовательно эти новые возможности языка Visual Basic.

Командой MsgBox (читается - месадж бокс, переводится – окно сообщений или панель сообщений) выводит на экран системное окно вывода сообщений. Формат этой команды следующий:

MsgBox "Текстовое сообщение"

Текстовое сообщение может содержать до 1024 символов. Если необходимо напечатать различную по типу информацию, например, поясняющий текст и числовое значение, то между текстом и числом ставится знак амперсант -&. С обеих сторон амперсант отделяется пробелами. Для перевода на новую строку применяют функцию Chr(13). 13 – это код клавиши Enter - Ввод.