Функция MsgBox для вывода окна сообщения (результаты работы программы)
Типы данных. Арифметические операции и выражения.
Стандартные окна для ввода и вывода.
Данные
 |
Арифметические Логические Символьные
 |  |  |
Числа: 21, 3.14, 0.567.. Да (True), Нет (False) «Петя», «1234», «tea for two»
 |  |  |
Действия над данными:
 |  |  |
Арифметические Логические Работа со строками
вычисления операции
 |  |  |
Данное определяется:
1. Именем (чтобы отличать одно данное или объект от другого).
2. Типом (чтобы определить возможные действия над данными).
Имя
-содержит буквы, цифры и символ подчеркивания (не более 40)
-начинается с буквы
-не может быть ключевым словом
Примеры:
Правильно Неправильно
A2 BMW_360 color StartTime 23B cm*per*inch File (ключевое слово)
Типы:
INTEGER SINGLE BOOLEAN STRING
CURRENCY
Как определить тип?
Оператор описания типа:Dim имя As тип... (должен быть в начале процедуры)
Пример:
Dim Name As String*15, SurName As String, A As Single, I As Integer,
Money As Currency, Alfa As Boolean
Name-строка фиксированной длины (15 симв.); SurName-строка переменной длины (любое количество символов); A, -вещественный; I-целый; Money-арифметическое данное для коммерческих расчетов, Alfa-логическое.
Арифметические операции и выражения.
Операции: +-сложение, - -вычитание, *-умножение, /-деление, \-целочисленное деление (3\2 дает результат 1), Mod - вычисление остатка (7Mod4 дает результат 3), ^-возведение в степень.
Примеры выражений:
A^2+2*A*B+3.5 I+1 (1+R\T)*0.5 (P21*SIN(X)-B)/(D+C) - sin- обращение к встроенной функции.
Оператор присваивания.
Имя переменной = арифметическое выражение
Примеры:
С= A^2+2*A*B+3.5 I=I+1-переменная увеличивает значение на 1
Money = (1+R\T)*0.5 Z1=(P21*SIN(X)-B)/(D+C)
При вычислении выражения все переменные должны иметь конкретные значения!
Стандартные окна для ввода и вывода.
Для ввода значений можно использовать стандартное окно ввода.
Окно ввода (функция InputBox).
InputBox(сообщение[, заголовок окна] [, default] [,X] [,Y] [, имя help- файла, контексный номер материала в help- файле])
сообщение - текст выводимого сообщения в окне;
заголовок окна -заголовок окна
default - строка, вводимая по умолчанию, если не вводится никакой информации (выводится в строке ввода).
X,Y- координаты левого угла окна относительно левого угла экрана (в twips). По умолчанию в центре.
[, имя help- файла, контекстный номер материала в help- файле]) - кнопкаhelp добавляется автоматически.
Для отображения сообщений можно использовать окно сообщений.
Реализация этого окна осуществляется с помощью оператора MsgBox
Функция MsgBox для вывода окна сообщения (результаты работы программы).
MsgBox сообщение [, тип окна] [, заголовок окна]
сообщение - текст сообщения;
тип окна (кнопки)-это сумма значений, определяющих число и тип кнопок на диалоговом окне, стиль пиктограмм, используемых в окне, и др. спецификации. В следующей таблице приведены некоторые значения аргументов и их описание:
| Константа | Значение типа | Описание |
| vbOKOnly | Выводить только кнопку ОК | |
| vbOKCancel | Выводить кнопки ОК и Cancel | |
| vbAbortRetryIgnore | Выводить кнопки Abort (Прервать), Retry (Повторить), Ignore (Пропустить) | |
| vbYesNoCancel | Выводить кнопки Yes, Nо, Саnсеl (Отмена) | |
| vbYesNo | Выводить кнопки Yes, Nо | |
| vbRetryCance | Выводить кнопки Retry, Саnсеl | |
| vbCritical | Выводить пиктограмму "Стоп" | |
| vbQuestion | Выводить пиктограмму "?" | |
| vbExclamation | Выводить пиктограмму "!" | |
| vbInformation | Выводить пиктограмму информации | |
| vbDefaultButton1 | Кнопка по умолчанию - первая | |
| vbDefaultButton2 | Кнопка по умолчанию - вторая | |
| vbDefaultButton3 | Кнопка по умолчанию - третья | |
| vbApplicationModal | Программное ведущее диалоговое окно | |
| vbSystemModal | Системное ведущее диалоговое окно |
По умолчанию значение параметра равно 0.
Первая группа значений (0-5) описывает число и тип кнопок, отображаемых в диалоговом окне; вторая группа (16, 32, 48, 64) описывает стиль пиктограммы (иконки); третья группа (0, 256, 512) определяет кнопки по умолчанию, четвертая группа (0, 4096) определяет выводимые окна сообщения (0 - окно ввода для окончания работы приложения, 4096 - окно ввода для окончания работы системы).
В качестве значения аргумента может указываться сумма значений типа по одному из каждой группы. Например, в операторе
MsgBox «Удалить ?», 52, «Сообщение»
значение аргумента 52 является суммой 48 и 4 (48 - вывод пиктограммы с восклицательным знаком, 4 - кнопки «Yes» и «No»).
Или иначе:
MsgBox «Удалить ?», vbExclamation+ vbYesNo, «Сообщение»
Функция MsgBox возвращает следующие значения:
| Константа | Значение | Выбираемая кнопка |
| vbOK | OK | |
| vbCancel | Cancel | |
| vbAbort | Abort | |
| vbRetry | Retry | |
| vbIgnore | Ignore | |
| vbYes | Yes | |
| vbNo | No |
Эти значения можно использовать для обработки результата работы пользователя с окном MsgBox.
Пример:
Private Sub Form_Click()
Dim Name As String
Name = InputBox("Как Вас зовут?", "Вопрос")
MsgBox "Вас зовут " & Name, 49, "Ответ"
End Sub
Краткая форма функций InputBox и MsgBox: