Пример: Опросчик Задача:

Написать программу опросчик для автоматизации проведения социологического опроса следующего вида:

Вопрос	Варианты ответа
Любите ли вы сыр	Да	Нет	Не знаю
Сколько вам лет	0-5	6-25	26-100
Почему вы здесь учитесь	Родители определили	Захотелось	Не знаю
Что вы делаете, когда хотите спать?	Иду спать	Засыпаю на месте	Заставляю себя не спать до последнего
Это вопрос для проверки. Выберите вариант, который показался вам наиболее привлекательным.	два слова	пять слов в этом варианте	много много много много много много много много многомного много много много много много много много много слов в этой длинной строке

Предусмотреть ввод и сохранение ФИО, половой принадлежности и ответов на вопросы респондентов в виде таблицы.

Разработка программы

Прежде всего определим входные и выходные данные а также их размещение.

Входными данными являются:

вопросы и варианты ответов опросника.
ФИО
пол
ответы на вопросы

Выходные данные:

ФИО, пол, ответы, сохранённые в электронном виде.

Вопросы и варианты ответов естественно хранить в виде таблицы. Для их размещения можно использовать рабочий лист2 документа Excel.

ФИО, пол и ответы на вопросы вводятся пользователем по запросу или в диалоговом режиме.

Результаты могут быть представлены в виде таблицы:

ФИО	пол	Вопрос1	Вопрос2	Вопрос3

Результаты могут быть размещены на отдельном листе1 Excel.

В грубом масштабе алгоритм работы программы такой:

Кнопку запуска опросчика разместим непосредственно на рабочем листе1. Для этого:
1. Откроем панель инструментов «Элементы управления», щелкнув правой кнопкой на свободном месте в области панелей инструментов и выбрав соответствующий пункт .
2. Выбираем элемент управления «Кнопка» .
3. Размещаем её на свободном месте: .
4. Правой клавишей мыши на кнопке открываем контекстное меню и выбираем пункт Edit: .
5. Редактируем надпись на кнопке .
6. В контекстном меню кнопки выбираем пункт «Исходный текст» и перемещаемся в редактор VBA в модуль обработки события кнопки . По умолчанию создаётся обработчик события Click.
7. Вопросы и варианты ответов разместим на листе 2 книги: .
8. В начале работы программы опроса проверим наличие вопросов на листе2: . Если вопросы есть, по ветви «Else» следует вставить команду запуска диалога ввода личных данных.
Для ввода личных данных добавим в проект пользовательские формы. Для этого:
1. Вставляем объект UserForm в проект .
2. На форме размещаем необходимые для ввода ФИО элементы управления: .
3. Изменяем их свойства для приведения к надлежащему виду: и так далее .
4. Создаём обработчик события для нажатия кнопки. Для этого дважды щёлкаем по кнопке и попадаем в модуль формы в процедуру обработки стандартного события. Запишем там программу, которая будет вводить ФИО из компонентов формы и сохранять их на листе данных в первой свободной ячейке первого столбца.
5. В момент открытия формы нужно предусмотреть ряд действий. Для этого создаём обработчик события, которое происходит каждый раз тогда, когда форма открывается:
6. Текущая форма запускается из обработчика события кнопки, размещённой на Лист1 (Пункт 1h). Исправляем обработчик. Для этого дважды щёлкаем мышью на объекте Лист1 проекта: . В окне кода вставляем нужные строки и комментарии.
В следующей форме вводим пол и записываем его во второй столбец текущей строки. Форма имеет вид: . Модуль формы содержит код: . Здесь обработчик события открытия диалогового окна Private Sub UserForm_Initialize(), обработчики событий нажатия на кнопки Private Sub CommandButton1_Click() и Private Sub CommandButton2_Click() и пользовательская процедура, которая ликвидирует текущее окно и открывает следующее.
Следующее окно будет отображать вопросы и воспринимать варианты ответа.
1. . В текстовое поле в верхней части формы выводится вопрос. Варианты ответов выводятся справа от переключателей. Выбор осуществляется нажатием на переключатель.
2. При выборе любого из вариантов происходит следующее:
  1. Выбранный вариант записывается в таблицу результатов на Лист1.
  2. Если вопросы на Листе2 не закончились, отображается следующий вопрос.
  3. Иначе программа завершает работу.
3. Текст программы модуля третьей формы:
Запуск программы осуществляется нажатием на кнопку, расположенную на Лист1. Для этого надо выйти из режима конструктора элементов управления .