ВАШЕ СВИДЕТЕЛЬСТВО
О ПУБЛИКАЦИИ В СМИ И РЕЦЕНЗИЯ
бесплатно за 1 минуту
Добавить материал
Количество Ваших материалов: 0.
Авторское
свидетельство о публикации в СМИ
добавьте 1 материал
Свидетельство
о создании электронного портфолио
добавьте 5 материала
Секретный
подарок
добавьте 10 материалов
Грамота за
информатизацию образования
добавьте 12 материалов
Рецензия
на любой материал бесплатно
добавьте 15 материалов
Видеоуроки
по быстрому созданию эффектных презентаций
добавьте 17 материалов
Мария Забелина свидетельство о публикации рецензия
‘видетельство о публикации скачивание доступно только автору
ПРОЕКТ № 8 Проверка знаний
Файл:

ПРОЕКТ8.doc - ПРОЕКТ № 8 Проверка знаний


ПРОЕКТ № 8 Проверка знаний

ПРОЕКТ № 8
1. Разместить на форме кнопку cmd1, задать значение Начать проверку свойства Caption. Создать
событийную процедуру cmd1_Click().
2. C помощью функции InputBox запросить имя и фамилию и присвоить это значение строковой переменной strA, а с
помощью функции MsgBox вывести результаты регистрации:
Dim bytB, bytN As Byte, strA, strB As String
Sub cmd1_Click()
strA = InputBox("Введите ваше имя и фамилию:", "Регистрация")
bytB = MsgBox("Уважаемый " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации")
3. Запустить проект и щёлкнуть по кнопке Начать проверку. На появившейся диалоговой панели Регистрация ввести в
текстовое поле имя и фамилию.
4. Число 36 обеспечивает вывод информационного окна типа «Вопрос», которое имеет две кнопки «Да» и «Нет».
Щелчок по одной из кнопок приводит к возвращению функцией определённого числового значения ( Да ­6, Нет – 7),
которое присваивается числовой переменной bytB.
5. С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке Нет), либо переход к
проверке знаний (щелчок по кнопке Да):
If bytB = 7 Then End
6. Ввести в событийную процедуру программный код, реализующий проверку знаний с помощью последовательности
вопросов. В переменной bytN накапливать количество правильных ответов:
strC = InputBox("Чему равен 1 байт?:", "Первый вопрос")
If strC = "8 бит" Then MsgBox "Правильно!", 0, "Первый вопрос" _
Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1
strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос")
If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _
Else MsgBox "Неправильно!", 0, "Второй вопрос": bytN = bytN + 1
MsgBox "Уважаемый " + strA + ", Вы сделали " + Str(bytN) + " ошибок!", 0, "Конец опроса"
End Sub
7. Запустить проект, пройти регистрацию и ответить на вопросы. Дополнить проект ещё тремя вопросами.
Один вопрос
ПРОЕКТ № 8
1. Разместить на форме кнопку cmd1, задать значение Начать проверку свойства Caption. Создать
событийную процедуру cmd1_Click().
2. C помощью функции InputBox запросить имя и фамилию и присвоить это значение строковой переменной strA, а с
помощью функции MsgBox вывести результаты регистрации:
Dim bytB, bytN As Byte, strA, strB As String
Sub cmd1_Click()
strA = InputBox("Введите ваше имя и фамилию:", "Регистрация")
bytB = MsgBox("Уважаемый " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации")
3. Запустить проект и щёлкнуть по кнопке Начать проверку. На появившейся диалоговой панели Регистрация ввести в
текстовое поле имя и фамилию.
4. Число 36 обеспечивает вывод информационного окна типа «Вопрос», которое имеет две кнопки «Да» и «Нет».
Щелчок по одной из кнопок приводит к возвращению функцией определённого числового значения ( Да ­6, Нет – 7),
которое присваивается числовой переменной bytB.
5. С помощью условного оператора можно реализовать либо выход из программы (щелчок по кнопке Нет), либо переход к
проверке знаний (щелчок по кнопке Да):
If bytB = 7 Then End
6. Ввести в событийную процедуру программный код, реализующий проверку знаний с помощью последовательности
вопросов. В переменной bytN накапливать количество правильных ответов:
strC = InputBox("Чему равен 1 байт?:", "Первый вопрос")
If strC = "8 бит" Then MsgBox "Правильно!", 0, "Первый вопрос" _
Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1
strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос")
If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _
Else MsgBox "Неправильно!", 0, "Второй вопрос": bytN = bytN + 1
MsgBox "Уважаемый " + strA + ", Вы сделали " + Str(bytN) + " ошибок!", 0, "Конец опроса"
End Sub
Один вопрос

ПРОЕКТ № 8 Проверка знаний

7. Запустить проект, пройти регистрацию и ответить на вопросы. Дополнить проект ещё тремя вопросами.

Прямая ссылка на скачивание файла: Скачать файл