Меню сайтаПолезные страничкиОтбравить SMS сообщение БЕСПЛАТНО |
Лабораторная работа по Microsoft Visual Basic №2 Проект «Проверка знаний»
Dim strA As String, bytB As Byte, strC As String, bytN As Byte Private Sub cmd1_Click() strA = InputBox("Введите ваше имя и фамилию", "Регистрация") bytB = MsgBox("Уважаемый(ая) " + strA + ",Вы готовы к проверке знаний?", 36, "Конец регистрации") End Sub
Private Sub cmdExit_Click() End End Sub
Dim strA As String, bytB As Byte Private Sub cmd1_Click() strA = InputBox("Введите ваше имя и фамилию", "Регистрация") bytB = MsgBox("Уважаемый(ая) " + strA + ",Вы готовы к проверке знаний?", 36, "Конец регистрации") If bytB = 7 Then End End Sub
Dim strA As String, bytB As Byte, strC As String, bytN As Byte Private Sub cmd1_Click() strA = InputBox("Введите ваше имя и фамилию", "Регистрация") bytB = MsgBox("Уважаемый(ая) " + strA + ",Вы готовы к проверке знаний?", 36, "Конец регистрации") If bytB = 7 Then End strC = InputBox("Чему равен 1 байт?", "Первый вопрос") If strC = "8 битов" Then MsgBox "Правильно!", 0, "Первый вопрос" _ Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1 End Sub
Второй вопрос: Переведите десятичное число 5 в двоичную систему счисления: Второй правильный ответ: 101 strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос") If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _ Else MsgBox "Неправильно!", 0, "Второй вопрос": bytN = bytN + 1 Третий вопрос: Совокупность данных, организованных по определенным правилам - это Третий правильный ответ: база данных Четвертый вопрос: Без каких объектов не может существовать база данных? Четвертый правильный ответ: без таблиц Пятый вопрос: В каких элементах таблицы хранятся данные базы? Пятый правильный ответ: в ячейках
MsgBox "Уважаемый(ая) " + strA + ", Вы сделали " + Str(bytN) + " ошибок", 0, "Конец опроса"
|