End Sub

End Sub

End Sub

End If

End

Else

End Sub

End Sub

End Select

End

End Select

Command1.Caption = "ВЫХОД"

Case 7

7. Напишите процедуру, осуществляющую сброс (обнуление) переменной-счетчика и переменной результатов:

Private Sub Form_Activate()

Number = 0

X = 0

8. Напишите процедуру обработки события, происходящего при загрузке формы:

Private Sub Form_Load()

Dim Name As String

Name = InputBox("Введите свое имя", "Имя")

a = MsgBox("Здравствуйте, " + Name + "! Вы хотите начать тестирование?", vbYesNo + vbQuestion, "Тестирование")

If a = 6 Then

Command1.Visible = True

Command2.Visible = True

9. Добавьте к приложению вторую форму, выбрав на панели меню команду Add Form.

10. Расположите на второй форме компоненты Label и CommandButton. Примерный вид формы «Инструкция приведен на Рис.13.3.

11. Напишите процедуру обработки щелчка мышью по кнопке «Инструкция»:

Private Sub Command2_Click()

Form2.Visible = True

12. Напишите процедуру обработчика события Click по кнопке «Перейти к тестированию», расположенной на второй форме:

Private Sub Command1_Click()

frmТест.Visible = True

Form2.Visible = False

1. Сохраните проект (выбрав File – Save frmТест.frm и Save Тест.vbp) в папке 13.1
2. Проверьте работоспособность проекта, запустив его на выполнение.
3. Создайте exe-файл программы с помощью команды File → Make Тест.exe.
4. Выйдите из среды Visual Basic.

17. Запустите на выполнение файл Тест.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

Задания для самостоятельного выполнения

1. Разработайте тест на 10 вопросов по одной из тем:

- тест по дисциплине «Отечественная история»

- тест по дисциплине «Основы алгоритмизации и программирования»

- тест по дисциплине «Русский язык»

- тест по дисциплине «Иностранный язык»

- тест по дисциплине «Экология»

- тест по дисциплине «Физика»

- тест по дисциплине «Химия»

- тест по дисциплине «Общая и профессиональная педагогика»

- тест по дисциплине «Менеджмент»

- тест по дисциплине «Компьютерная графика»

2. Разработайте тест на 10 вопросов, содержащий иллюстрации к каждому вопросу, по одной из тем:

- тест по программе Delphi 7

- тест по программе Adobe Photoshop

- тест по программе Corel Draw

- тест по программе AutoCad

- тест по программе 3Ds-Max

- тест по программе Microsoft Word

- тест по программе Microsoft Excel

- тест по программе Visual Basic

- тест по программе Turbo Pascal

- тест по программе Microsoft Power Point

Дата добавления: 2014-12-23