Составители:
Рубрика:
55
Идентификатор
константы
Значение Пояснение
VbNo
7 Нажато Нет
Пример 2.17. Программа, задающая с клавиатуры первую и вторую записи в
файле " Зарплата.hhh":
Open " Зарплата.hhh" For Output As #1
Rezult = InputBox("Фамилия И.О. сотрудника", "Учебник")
Print #1, Rezult
Rezult = InputBox("Ставка заработной платы", "Учебник")
Print #1, Val(Rezult)
Close #1
На рис 1.11 можно посмотреть внешний вид диалоговых окон для ввода
информации, создаваемых рассматриваемой программой на VBA и
работающей совместно с электронными таблицами Excel.
Пример 2.18. Чтение содержимое созданного:
Open " Зарплата.hhh" For Input As #1
Input #1, Rezult
MsgBox "Фамилия И.О. сотрудника" & Chr(10) & Chr(13) & Rezult, _
vbOKOnly + vbExclamation, "Учебник"
Input #1, d
j = MsgBox("Ставка заработной платы" & Chr(10) & Chr(13) & Str(d), _
vbYesNoCancel + vbExclamation, "Учебник")
Close #1
Ячейка j этой программы после ее выполнения содержит или число 6 (константа
VbYes), если в процессе выполнения была нажата кнопка Да, или число 7
(константа VbNo), если была нажата кнопка Нет, или число 2 (константа
vbCancel), если была
нажата кнопка Отмена.
Рис. 2.4. Внешний вид окон, создаваемых функцией InputBox
Страницы
- « первая
- ‹ предыдущая
- …
- 53
- 54
- 55
- 56
- 57
- …
- следующая ›
- последняя »
