Answer(1) = SplitAnswers(np, BuferSTR, 0)

np = np + Len(Answer(1)) + 1

Answer(2) = SplitAnswers(np, BuferSTR, 0)

np = np + Len(Answer(2)) + 1

Answer(3) = SplitAnswers(np, BuferSTR, 0)

np = np + Len(Answer(3)) + 1

Answer(4) = SplitAnswers(np, BuferSTR, 1)

AddItemsToList Answer(1), Answer(2), Answer(3), Answer(4)

Choose1.Caption = Answer(1)

Choose2.Caption = Answer(2)

Choose3.Caption = Answer(3)

Choose4.Caption = Answer(4)

ChooseRight.Caption = ChooseAnswer(LabelQuestionJ.Caption)

EndIf

EndSub

9. Вывод

Мной была написана программа на языке программирования VisualBasic, были использованы методы объектно-ориентированного программирования, также использовалась работа с файлами. Программа позволяет игроку проверить свои знания в совершенно разных областях.

10. Список литературы

1. Мазный Г.Л., Прогулова Т.Б. Методическое пособие к курсовому проектированию по высшей математике и информатике. - Дубна: Международный университет природы, общества и человека “Дубна”, 1996.

2. О.И.Мельникова, А.Ю.Бонюшкина. Учебное пособие по Технологии программирования. – Дубна: Международный университет природы, общества и человека “Дубна”, 2001.