Функция ввода
InputBox(Приглашение$, Заголовок$, [По умолчанию])
Пример:
InputBox(“Введите Вашу фамилию“, “Регистрация“)
Функция вывода
MsgBox(Сообщение$[,ЧисКод1+ЧисКод2][,Заголовок$])
Private Sub Command1_Click()
strC = InputBox("Введите Вашу фамилию", "Регистрация")
bytB = MsgBox("Уважаемый " + strC + ",Вы готовы к проверке знаний?", , "Приветствие")
End Sub
Private Sub Command1_Click()
strC = InputBox("Введите Вашу фамилию", "Регистрация")
bytB = MsgBox("Уважаемый " + strC + ",Вы готовы к проверке знаний?", , "Приветствие")
End Sub
Проект «Проверка знаний»
Восьмой проект
Функция ввода
•
InputBox(Приглашение$, Заголовок$, [По
умолчанию])
Пример:
InputBox(“Введите Вашу фамилию“, “Регистрация“)
Функция вывода
• MsgBox(Сообщение$[,ЧисКод1+ЧисКод2][,Заголовок$])
Пиктограмма
?
!
i
ЧисКод1
16
32
48
64
Стр. 195
ЧисКод2 Набор кнопок
0 ОК
1 Ок, Отмена
2 Стоп, повтор,
пропустить
3 Да, нет,
отмена
4 Да, нет
5 Повтор,
отмена
Примеры
Private Sub Command1_Click()
strC = InputBox("Введите Вашу фамилию", "Регистрация")
bytB = MsgBox("Уважаемый " + strC + ",Вы готовы к проверке знаний?",
33
End Sub
, "Приветствие")
Пример 2
•
•
•
•
Private Sub Command1_Click()
strC = InputBox("Введите Вашу фамилию", "Регистрация")
bytB = MsgBox("Уважаемый " + strC + ",Вы готовы к проверке знаний?",
35
End Sub
, "Приветствие")
Пример 3
•
•
•
•
Private Sub Command1_Click()
strC = InputBox("Введите Вашу фамилию", "Регистрация")
bytB = MsgBox("Уважаемый " + strC + ",Вы готовы к проверке знаний?", ,
"Приветствие")
End Sub
36
Пример 4
•
•
•
•
Private Sub Command1_Click()
strC = InputBox("Введите Вашу фамилию", "Регистрация")
53
bytB = MsgBox("Уважаемый " + strC + ",Вы готовы к проверке знаний?", ,
"Приветствие")
End Sub
Проект № 8 по учебнику §4.9.4
стр. 194
Дома: прочитать § 4.9.4 и выполнить
задание №4.19 в тетради или на
компьютере.
Проект «Проверка знаний».ppt
