Функция 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: