Разработка приложения на VBA 'Тест'

В остальных формах я использовала только надпись и 2 кнопки.

Я заполнила поля надписями, назвала кнопки и немного изменила -цветовую палитру. Получившиеся, в результате этих действий формы:

И пример результата:

2.2 Тестирование программы

При разработке любого программного продукта необходимо проводить его тестирование, с целью проверки правильности программы и обнаружения ошибок.

Тестирование - это динамический контроль программы, т.е. проверка правильности программы при ее выполнении на компьютере

Открыв программу, необходимо ввести свое имя и нажать на кнопку «Поехали!». Далее нужно ответить на 4 вопроса. Ответы на вопросы однозначные «Право» или «Лево». После ответа на последний вопрос пользователь автоматически получает результат, в котором описываются сильные и слабые стороны тестируемого, а также некоторые основные черты характера.

Тестировали мою программу 5 человек и результаты у всех были разные. Проблем с пониманием заданий не было. Ошибок или неполадок не возникало. Я считаю, что моя программа прошла свое тестирование на ура.

2.3 Листинг программы

программа приложение тестирование листинг

1. Вводим глобальные переменные

Public a

Public bcdI as string

2. Листинг для приветствия (Userform1)

Private Sub CommandButton1_Click()= textbox1.text.ShowMeSub

3. Листинг для 1 вопроса (Userform2)

4. Листинг для 2 вопроса (Userform3)

Private Sub CommandButton1_Click()= 1.ShowMeSubSub CommandButton2_Click()= 0.ShowMeSub

5. Листинг для 3 вопроса (Userform4)

Private Sub CommandButton1_Click()= 1.ShowMeSubSub CommandButton2_Click()= 0.ShowMeSub

6. Листинг для 4 вопроса и обработки данных (Userform5)

Private Sub CommandButton1_Click()= 1

If a = 1 And b = 1 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПППП - ориентация на общепринятое мнение, на стереотипы, консервативный тип характера, что обеспечивает наиболее стабильное объединение"a = 1 And b = 1 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПППЛ - неуверенный слабый темперамент. При наличии одного теста на фоне противоположных соответствующая черта характера проявляется наиболее ярко - в данном случае - нерешительность"a = 1 And b = 1 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ППЛП - такому человеку присущи способность к кокетству, решительность, чувство юмора, активность, энергичность, темперамент, артистизм. При общении с ним необходимы юмор и решительность, т.к. этот сильный характер не воспринимает слабые типы"a = 1 And b = 1 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ППЛЛ - редкий и самостоятельный тип характера. Близок к предыдущему типу, но мягче, нерешительнее и менее энергичен. Некоторое противоречие между нерешительностью (левое аплодирование) и твердостью характера (правый ведущий глаз). Высокая контактность, но медленное привыкание"a = 1 And b = 0 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛПП - деловой тип характера, сочетающий аналитический склад и мягкость (основная черта). Чаще встречается у женщин (3,6 %). Общепринятый тип деловой женщины. Медленное привыкание, осторожность. Никогда не идут на конфликт «в лоб», преобладает расчет, терпимость, «вязкость», замедленность в развитии отношений, некоторая холодность"a = 1 And b = 0 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛПЛ - самый слабый тип характера, очень редок. Беззащитность и слабость связана, как со способностью идти на конфликт, так и с подверженностью различным влияниям"a = 1 And b = 0 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛЛП - склонность к новым впечатлениям и способность не создавать конфликтов. Некоторое непостоянство, способность кокетничать на «правом» аналитическом фоне при особой мягкости. Подобным характерам свойственна эмоциональная медлительность, томность. Простота и редкая смелость в общении, способность переключаться на новый тип поведения. Значительно чаще встречается у женщин (8,5 % женщин, 3,5 % мужчин)"a = 1 And b = 0 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛЛЛ - непостоянный и независимый характер, основная черта - аналитичность в сочетании с остальными левыми тестами. Встречается редко (2,6 % мужчин и 1,6 % женщин)"a = 0 And b = 1 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛППП - один из наиболее часто встречающихся типов характера, с очень хорошей адаптацией к различным условиям (15,7 % мужчин и 12,2 % женщин). Основная черта - эмоциональность в сочетании с недостаточной настойчивостью, которая проявляется, прежде всего, в основных стратегических вопросах (брак, образование и т.п.). Высокая подверженность чужому влиянию. Легко контактирует практически со всеми остальными типами характера. У мужчин эмоциональность понижена, наблюдается склонность к флегматичности"a = 0 And b = 1 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛППЛ - еще меньшая настойчивость, мягкость, уступчивость осторожному влиянию, наивность. Требует особо тщательного отношения к себе - тип «маленькой королевы»."a = 0 And b = 1 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛПЛП - самый сильный тип характера, трудно поддается убеждению, для этого требуется сильное разнообразное влияние. Способен проявлять настойчивость, но иногда она переходит в «зацикливание» на второстепенных целях, Сильная индивидуальность. Энергичность, способность к преодолению трудностей. Некоторый консерватизм из-за недостаточности внимания к чужой точке зрения. Такие люди не любят инфантильности."a = 0 And b = 1 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛПЛЛ - сильный, но ненавязчивый характер, практически не поддающийся убуждению. Основная черта - внутренняя агрессивность, прикрытая внешней мягкостью и эмоциональностью. Быстрое взаимодействие, но медленное взаимопонимание."a = 0 And b = 0 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛПП - дружелюбие и простота, некоторая разбросанность интересов."a = 0 And b = 0 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛПЛ - основные черты: простодушие, мягкость, доверчивость. Это очень редкий тип (1,3 % женщин), у мужчин практически не встречается."a = 0 And b = 0 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛЛП - эмоциональность в сочетании с решительностью (основная черта), энергичность, некоторая разбросанность приводят к тому, что у подобных характеров возможны эмоциональные, быстро принимаемые непродуманные решения. Поэтому в общении с ними важны дополнительные «тормозные механизмы»."a = 0 And b = 0 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛЛЛ - обладатели полного набора «левых» тестов - это люди, для которых характерны способность по-новому взглянуть на вещи (антиконсерватизм), наибольшая эмоциональность, индивидуальность, эгоизм, упрямство, защищенность, иногда переходящая в замкнутость. Способность «ослепительно» улыбаться, которая связана с левыми тестами, и прежде всего, с левой ведущей рукой."

Unload MeSubSub CommandButton2_Click() = 0a = 1 And b = 1 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПППП - ориентация на общепринятое мнение, на стереотипы, консервативный тип характера, что обеспечивает наиболее стабильное объединение"a = 1 And b = 1 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПППЛ - неуверенный слабый темперамент. При наличии одного теста на фоне противоположных соответствующая черта характера проявляется наиболее ярко - в данном случае - нерешительность"a = 1 And b = 1 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ППЛП - такому человеку присущи способность к кокетству, решительность, чувство юмора, активность, энергичность, темперамент, артистизм. При общении с ним необходимы юмор и решительность, т.к. этот сильный характер не воспринимает слабые типы"a = 1 And b = 1 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ППЛЛ - редкий и самостоятельный тип характера. Близок к предыдущему типу, но мягче, нерешительнее и менее энергичен. Некоторое противоречие между нерешительностью (левое аплодирование) и твердостью характера (правый ведущий глаз). Высокая контактность, но медленное привыкание"a = 1 And b = 0 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛПП - деловой тип характера, сочетающий аналитический склад и мягкость (основная черта). Чаще встречается у женщин (3,6 %). Общепринятый тип деловой женщины. Медленное привыкание, осторожность. Никогда не идут на конфликт «в лоб», преобладает расчет, терпимость, «вязкость», замедленность в развитии отношений, некоторая холодность"a = 1 And b = 0 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛПЛ - самый слабый тип характера, очень редок. Беззащитность и слабость связана, как со способностью идти на конфликт, так и с подверженностью различным влияниям"a = 1 And b = 0 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛЛП - склонность к новым впечатлениям и способность не создавать конфликтов. Некоторое непостоянство, способность кокетничать на «правом» аналитическом фоне при особой мягкости. Подобным характерам свойственна эмоциональная медлительность, томность. Простота и редкая смелость в общении, способность переключаться на новый тип поведения. Значительно чаще встречается у женщин (8,5 % женщин, 3,5 % мужчин)"a = 1 And b = 0 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ПЛЛЛ - непостоянный и независимый характер, основная черта - аналитичность в сочетании с остальными левыми тестами. Встречается редко (2,6 % мужчин и 1,6 % женщин)"a = 0 And b = 1 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛППП - один из наиболее часто встречающихся типов характера, с очень хорошей адаптацией к различным условиям (15,7 % мужчин и 12,2 % женщин). Основная черта - эмоциональность в сочетании с недостаточной настойчивостью, которая проявляется, прежде всего, в основных стратегических вопросах (брак, образование и т.п.). Высокая подверженность чужому влиянию. Легко контактирует практически со всеми остальными типами характера. У мужчин эмоциональность понижена, наблюдается склонность к флегматичности"a = 0 And b = 1 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛППЛ - еще меньшая настойчивость, мягкость, уступчивость осторожному влиянию, наивность. Требует особо тщательного отношения к себе - тип «маленькой королевы»."a = 0 And b = 1 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛПЛП - самый сильный тип характера, трудно поддается убеждению, для этого требуется сильное разнообразное влияние. Способен проявлять настойчивость, но иногда она переходит в «зацикливание» на второстепенных целях, Сильная индивидуальность. Энергичность, способность к преодолению трудностей. Некоторый консерватизм из-за недостаточности внимания к чужой точке зрения. Такие люди не любят инфантильности."a = 0 And b = 1 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛПЛЛ - сильный, но ненавязчивый характер, практически не поддающийся убуждению. Основная черта - внутренняя агрессивность, прикрытая внешней мягкостью и эмоциональностью. Быстрое взаимодействие, но медленное взаимопонимание."a = 0 And b = 0 And c = 1 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛПП - дружелюбие и простота, некоторая разбросанность интересов."a = 0 And b = 0 And c = 1 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛПЛ - основные черты: простодушие, мягкость, доверчивость. Это очень редкий тип (1,3 % женщин), у мужчин практически не встречается."a = 0 And b = 0 And c = 0 And d = 1 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛЛП - эмоциональность в сочетании с решительностью (основная черта), энергичность, некоторая разбросанность приводят к тому, что у подобных характеров возможны эмоциональные, быстро принимаемые непродуманные решения. Поэтому в общении с ними важны дополнительные «тормозные механизмы»."a = 0 And b = 0 And c = 0 And d = 0 Then MsgBox i & ", результат вашего теста:" & Chr(10) & "ЛЛЛЛ - обладатели полного набора «левых» тестов - это люди, для которых характерны способность по-новому взглянуть на вещи (антиконсерватизм), наибольшая эмоциональность, индивидуальность, эгоизм, упрямство, защищенность, иногда переходящая в замкнутость. Способность «ослепительно» улыбаться, которая связана с левыми тестами, и прежде всего, с левой ведущей рукой."MeSub

Заключение

Во время выполнения своей курсовой работы я более глубоко и основательно изучила и укрепила на практике все тонкости и моменты среды программирования Visual Basic for Applications. Мне удалось на практике знания, полученных при изучении курса "МДК 01.02. Прикладное программирование", и приобрести опыт самостоятельной разработки прикладного программного обеспечения.

Моя программа написана на языке программирования VBA и позволяет проводить тестирование.

Список использованной литературы

1.      В. Кузьменко «VBA. Эффективное использование» 624 стр. 2012г.

.        Андрей Гарнаев «Самоучитель VBA» 511 стр. 2012г.

.        Джон Уокенбах «Excel 2013. Трюки и советы Джона Уокенбаха» 453 стр. 2014г.