итання. Відповіді на питання однозначні «Право» або «Ліво». Після відповіді на останнє запитання користувач автоматично отримує результат, в якому описуються сильні і слабкі сторони тестованого, а також деякі основні риси характеру.
Тестували мою програму 5 чоловік і результати у всіх були різні. Проблем з розумінням завдань не було. Помилок або неполадок не виникало. Я вважаю, що моя програма пройшла своє тестування на ура.
2.3 Лістинг програми
програма додаток тестування лістинг
1. Вводимо глобальні змінні
Public a
Public bcdI as string
2. Лістинг для привітання (Userform1)
Private Sub CommandButton1_Click ()=textbox1.text.ShowMeSub
3. Лістинг для 1 питання (Userform2)
Private Sub CommandButton1_Click ()=1.ShowSubSub CommandButton2_Click ()=0.ShowMeSub
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 amp; laquo ;, результат вашого тесту: amp; Chr (10) amp; ПППП - орієнтація на загальноприйняту думку, на стереотипи, консервативний тип характеру, що забезпечує найбільш стабільне об'єднання a=1 And b=1 And c=1 And d=0 Then MsgBox i amp; laquo ;, результат вашого тесту: amp; Chr (10) amp; ПППЛ - невпевнений слабкий темперамент. При наявності одного тесту на тлі протилежних відповідна риса характеру проявляється найбільш яскраво - в даному випадку - нерішучість a=1 And b=1 And c=0 And d=1 Then MsgBox i amp; laquo ;, результат вашого тесту: amp; Chr (10) amp; ППЛП - такій людині притаманні здатність до кокетування, рішучість, почуття гумору, активність, енергійність, темперамент, артистизм. При спілкуванні з ним необхідні гумор і рішучість, тому цей сильний характер не сприймає слабкі типи a=1 And b=1 And c=0 And d=0 Then MsgBox i amp; laquo ;, результат вашого тесту: amp; Chr (10) amp; ППЛЛ - рідкісний і самостійний тип характеру. Близький до попереднього типу, але м'якше, нерішучіше і менш енергійний. Деяке протиріччя між нерішучістю (ліве аплодування) і твердістю характеру (правий провідний очей). Висока контактність, але повільне звикання a=1 And b=0 And c=1 And d=1 Then MsgBox i amp; laquo ;, результат вашого тесту: amp; Chr (10) amp; ПЛПП - діловий тип характеру, що поєднує аналітичний склад і м'якість (основна риса). Частіше зустрічається у жінок (3,6%). Загальноприйнятий тип ділової жінки. Повільне звикання, обережність. Ніколи не йдуть на конфлікт «в лоб», переважає розрахунок, терпимість, «в'язкість», сповільненість у розвитку відносин, деяка холодність a=1 And b=0 And c=1 And d=0 Then MsgBox i amp; laquo ;, результат вашого тесту: amp; Chr (10) amp; ПЛПЛ - найслабший тип характеру, дуже рідкісний. Беззахисність і слабкість пов'язана, як зі здатністю йти на конфлікт, так і з схильністю різним впливам a=1 And b=0 And c=0 And d=1 Then MsgBox i amp; laquo ;, результат вашого тесту: amp; Chr (10) amp; ПЛЛП - схильність до нових вражень і здатність не створювати конфліктів. Деякий непостійність, здатність кокетувати на «правом» аналітичному фоні при особливої ??м'якості. Подібним характерам властива емоційна повільність, таємності. Простота і рідкісна сміливість в спілкуванні, здатність переключатися на новий тип поведінки. Значно частіше зустрічається у жінок (8,5% жінок, 3,5% чоловіків) a=1 And b=0 And c=0 And d=0 Then MsgBox i amp; laquo ;, результат вашого тесту: amp; Chr (10) amp; ПЛЛЛ - непостійний і незалежний характер, основна риса - аналітичність у поєднанні з іншими лівими тестами. Зустрічається рідко (2,6% чоловіків і 1,6% жінок) a=0 And b=1 And c=1 And d=1 Then MsgBox i amp; laquo ;, результат вашого тесту: amp; Chr (10) amp; ЛППП - один з найбільш часто зустрічаються типів характеру, з дуже хорошою адаптацією до різних умов (15,7% чоловіків і 12,2% жінок). Основна риса - емоційність у поєднанні з недостатньою наполегливістю, яка проявляється, насамперед, в основних стратегічних питаннях (шлюб, освіта тощо). Висока схильність чужому впливу. Легко контактує практично з усіма іншими типами характеру. У чоловіків емоційність знижена, спостерігається схильність до флегматичності a=0 And b=1 And c=1 And d=0 Then MsgBox i amp; laquo ;, результат ва...
