Результат выполненного задания №9

Вывод теста в html

Вывод теста в txt

Программа

Sub test()

Dim a, b, c, d, i, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43 As String

Dim sums As Integer

MsgBox ("Сейчас вы пройдете опрос, данный опрос оценит, в какой степени человек готов брать на себя ответственность за то, что происходит с ним и вокруг него. Предлагается 44 вопроса на которые отвечаете да или нет.")

a = InputBox("Введите фамилию")

Sheets(1).Cells(1, 1) = "Фамилия: "

Sheets(1).Cells(1, 2) = a

b = InputBox("Введитеимя")

Sheets(1).Cells(2, 1) = "Имя: "

Sheets(1).Cells(2, 2) = b

c = InputBox("Введитевозраст")

Sheets(1).Cells(3, 1) = "Возраст: "

Sheets(1).Cells(3, 2) = c

d = InputBox("Введитеродзанятий")

Sheets(1).Cells(4, 1) = "Родзанятий: "

Sheets(1).Cells(4, 2) = d

Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 11\1.txt" For Output As #1

Print #1, "Фамилия: " & a

Print #1, "Имя: " & b

Print #1, "Возраст: " & c

Print #1, "Род занятий: " & d

Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 11\1.html" For Output As #2

Print #2, "<html><body>Фамилия " & a & " Имя " & b & " Возраст " & c & " Род занятий " & d & " "

i = MsgBox("Продвижение по службе зависит от удачного стечения обстоятельств, чем от особенностей и собственных усилий человека?", vbYesNo, "Вопрос №1")

Sheets(1).Cells(7, 1) = "Вопрос №1 Продвижение по службе зависит от удачного стечения обстоятельств, чем от особенностей и собственных усилий человека?"

If i = vbYes Then

Sheets(1).Cells(7, 2) = "Да"

Print #1, "Вопрос №1 Продвижение по службе зависит от удачного стечения обстоятельств, чем от особенностей и собственных усилий человека? Да"

Print #2, "Вопрос №1 Продвижение по службе зависит от удачного стечения обстоятельств, чем от особенностей и собственных усилий человека? Да"

Else

Sheets(1).Cells(7, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №1 Продвижение по службе зависит от удачного стечения обстоятельств, чем от особенностей и собственных усилий человека? Нет"

Print #2, "Вопрос №1 Продвижение по службе зависит от удачного стечения обстоятельств, чем от особенностей и собственных усилий человека? Нет"

End If

i1 = MsgBox("Большинство разводов происходят от того, что люди не хотят уступать и приспосабливаться друг к другу?", vbYesNo, "Вопрос №2")

Sheets(1).Cells(8, 1) = "Вопрос №2 Большинство разводов происходят от того, что люди не хотят уступать и приспосабливаться друг к другу?"

If i1 = vbYes Then

Sheets(1).Cells(8, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №2 Большинство разводов происходят от того, что люди не хотят уступать и приспосабливаться друг к другу? Да"

Print #2, "Вопрос №2 Большинство разводов происходят от того, что люди не хотят уступать и приспосабливаться друг к другу? Да"

Else

Sheets(1).Cells(8, 2) = "Нет"

Print #1, "Вопрос №2 Большинство разводов происходят от того, что люди не хотят уступать и приспосабливаться друг к другу? Нет"

Print #2, "Вопрос №2 Большинство разводов происходят от того, что люди не хотят уступать и приспосабливаться друг к другу? Нет"

End If

i2 = MsgBox("Болезнь - дело случая, и если уж суждено кому-то заболеть, то с этим ничего не поделаешь?", vbYesNo, "Вопрос №3")

Sheets(1).Cells(9, 1) = "Вопрос №3 Болезнь - дело случая, и если уж суждено кому-то заболеть, то с этим ничего не поделаешь?"

If i2 = vbYes Then

Sheets(1).Cells(9, 2) = "Да"

Print #1, "Вопрос №3 Болезнь - дело случая, и если уж суждено кому-то заболеть, то с этим ничего не поделаешь? Да"

Print #2, "Вопрос №3 Болезнь - дело случая, и если уж суждено кому-то заболеть, то с этим ничего не поделаешь? Да"

Else

Sheets(1).Cells(9, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №3 Болезнь - дело случая, и если уж суждено кому-то заболеть, то с этим ничего не поделаешь? Нет"

Print #2, "Вопрос №3 Болезнь - дело случая, и если уж суждено кому-то заболеть, то с этим ничего не поделаешь? Нет"

End If

i3 = MsgBox("Люди оказываются одинокими из-за того, что сами не проявляют интереса и дружелюбия к окружающим?", vbYesNo, "Вопрос №4")

Sheets(1).Cells(10, 1) = "Вопрос №4 Люди оказываются одинокими из-за того, что сами не проявляют интереса и дружелюбия к окружающим?"

If i3 = vbYes Then

Sheets(1).Cells(10, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №4 Люди оказываются одинокими из-за того, что сами не проявляют интереса и дружелюбия к окружающим? Да"

Print #2, "Вопрос №4 Люди оказываются одинокими из-за того, что сами не проявляют интереса и дружелюбия к окружающим? Да"

Else

Sheets(1).Cells(10, 2) = "Нет"

Print #1, "Вопрос №4 Люди оказываются одинокими из-за того, что сами не проявляют интереса и дружелюбия к окружающим? Нет"

Print #2, "Вопрос №4 Люди оказываются одинокими из-за того, что сами не проявляют интереса и дружелюбия к окружающим? Нет"

End If

i4 = MsgBox("Осуществление моих желаний часто зависит от везения?", vbYesNo, "Вопрос №5")

Sheets(1).Cells(11, 1) = "Вопрос №5 Осуществление моих желаний часто зависит от везения?"

If i4 = vbYes Then

Sheets(1).Cells(11, 2) = "Да"

Print #1, "Вопрос №5 Осуществление моих желаний часто зависит от везения? Да"

Print #2, "Вопрос №5 Осуществление моих желаний часто зависит от везения? Да"

Else

Sheets(1).Cells(11, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №5 Осуществление моих желаний часто зависит от везения? Нет"

Print #2, "Вопрос №5 Осуществление моих желаний часто зависит от везения? Нет"

End If

i5 = MsgBox("Бесполезно предпринимать усилия для того, чтобы завоевать симпатии других людей?", vbYesNo, "Вопрос №6")

Sheets(1).Cells(12, 1) = "Вопрос №6 Бесполезно предпринимать усилия для того, чтобы завоевать симпатии других людей?"

If i5 = vbYes Then

Sheets(1).Cells(12, 2) = "Да"

Print #1, "Вопрос №6 Бесполезно предпринимать усилия для того, чтобы завоевать симпатии других людей? Да"

Print #2, "Вопрос №6 Бесполезно предпринимать усилия для того, чтобы завоевать симпатии других людей? Да"

Else

Sheets(1).Cells(12, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №6 Бесполезно предпринимать усилия для того, чтобы завоевать симпатии других людей? Нет"

Print #2, "Вопрос №6 Бесполезно предпринимать усилия для того, чтобы завоевать симпатии других людей? Нет"

End If

i6 = MsgBox("Внешние обстоятельства - родители и благосостояние - влияют на семейное састье не меньше, чем отношения супругов?", vbYesNo, "Вопрос №7")

Sheets(1).Cells(13, 1) = "Вопрос №7 Внешние обстоятельства - родители и благосостояние - влияют на семейное састье не меньше, чем отношения супругов?"

If i6 = vbYes Then

Sheets(1).Cells(13, 2) = "Да"

Print #1, "Вопрос №7 Внешние обстоятельства - родители и благосостояние - влияют на семейное састье не меньше, чем отношения супругов? Да"

Print #2, "Вопрос №7 Внешние обстоятельства - родители и благосостояние - влияют на семейное састье не меньше, чем отношения супругов? Да"

Else

Sheets(1).Cells(13, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №7 Внешние обстоятельства - родители и благосостояние - влияют на семейное састье не меньше, чем отношения супругов? Нет"

Print #2, "Вопрос №7 Внешние обстоятельства - родители и благосостояние - влияют на семейное састье не меньше, чем отношения супругов? Нет"

End If

i7 = MsgBox("Я часто чувствую, что мало влияю на то, что происходит сомной?", vbYesNo, "Вопрос №8")

Sheets(1).Cells(14, 1) = "Вопрос №8 Я часто чувствую, что мало влияю на то, что происходит сомной?"

If i7 = vbYes Then

Sheets(1).Cells(14, 2) = "Да"

Print #1, "Вопрос №8 Я часто чувствую, что мало влияю на то, что происходит сомной? Да"

Print #2, "Вопрос №8 Я часто чувствую, что мало влияю на то, что происходит сомной? Да"

Else

Sheets(1).Cells(14, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №8 Я часто чувствую, что мало влияю на то, что происходит сомной? Нет"

Print #2, "Вопрос №8 Я часто чувствую, что мало влияю на то, что происходит сомной? Нет"

End If

i8 = MsgBox("Как правило, руководство оказываеться быть более эффективным, когда руководители полностью контролируют действия подчиненных, а не полагаются на их самостоятельность?", vbYesNo, "Вопрос №9")

Sheets(1).Cells(15, 1) = "Вопрос №9 Как правило, руководство оказываеться быть более эффективным, когда руководители полностью контролируют действия подчиненных, а не полагаются на их самостоятельность?"

If i8 = vbYes Then

Sheets(1).Cells(15, 2) = "Да"

Print #1, "Вопрос №9 Как правило, руководство оказываеться быть более эффективным, когда руководители полностью контролируют действия подчиненных, а не полагаются на их самостоятельность? Да"

Print #2, "Вопрос №9 Как правило, руководство оказываеться быть более эффективным, когда руководители полностью контролируют действия подчиненных, а не полагаются на их самостоятельность? Да"

Else

Sheets(1).Cells(15, 2) = "Нет"

sums = sums + 1

End If

i9 = MsgBox("Мои отметки в школе часто зависели от случайных обстоятельств, например, от настроения учителя, а не от моих собственных усилий?", vbYesNo, "Вопрос №10")

Sheets(1).Cells(16, 1) = "Вопрос №10 Мои отметки в школе часто зависели от случайных обстоятельств, например, от настроения учителя, а не от моих собственных усилий?"

If i9 = vbYes Then

Sheets(1).Cells(16, 2) = "Да"

Print #1, "Вопрос №10 Мои отметки в школе часто зависели от случайных обстоятельств, например, от настроения учителя, а не от моих собственных усилий? Да"

Print #2, "Вопрос №10 Мои отметки в школе часто зависели от случайных обстоятельств, например, от настроения учителя, а не от моих собственных усилий? Да"

Else

Sheets(1).Cells(16, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №10 Мои отметки в школе часто зависели от случайных обстоятельств, например, от настроения учителя, а не от моих собственных усилий? Нет"

Print #2, "Вопрос №10 Мои отметки в школе часто зависели от случайных обстоятельств, например, от настроения учителя, а не от моих собственных усилий? Нет"

End If

i10 = MsgBox("Когда я строю планы, то в общем верю в то, что смогу их осуществить?", vbYesNo, "Вопрос №11")

Sheets(1).Cells(17, 1) = "Вопрос №11 Когда я строю планы, то в общем верю в то, что смогу их осуществить?"

If i10 = vbYes Then

Sheets(1).Cells(17, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №11 Когда я строю планы, то в общем верю в то, что смогу их осуществить? Да"

Print #2, "Вопрос №11 Когда я строю планы, то в общем верю в то, что смогу их осуществить? Да"

Else

Sheets(1).Cells(17, 2) = "Нет"

Print #1, "Вопрос №11 Когда я строю планы, то в общем верю в то, что смогу их осуществить? Нет"

Print #2, "Вопрос №11 Когда я строю планы, то в общем верю в то, что смогу их осуществить? Нет"

End If

i11 = MsgBox("То, что многим людям кажется удачей или везением, на самом делеявляется результатомдолгих целенаправленых усилий?", vbYesNo, "Вопрос №12")

Sheets(1).Cells(18, 1) = "Вопрос №12 То, что многим людям кажется удачей или везением, на самом делеявляется результатомдолгих целенаправленых усилий?"

If i11 = vbYes Then

Sheets(1).Cells(18, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №12 То, что многим людям кажется удачей или везением, на самом делеявляется результатомдолгих целенаправленых усилий? Да"

Print #2, "Вопрос №12 То, что многим людям кажется удачей или везением, на самом делеявляется результатомдолгих целенаправленых усилий? Да"

Else

Sheets(1).Cells(18, 2) = "Нет"

Print #1, "Вопрос №12 То, что многим людям кажется удачей или везением, на самом делеявляется результатомдолгих целенаправленых усилий? Нет"

Print #2, "Вопрос №12 То, что многим людям кажется удачей или везением, на самом делеявляется результатомдолгих целенаправленых усилий? Нет"

End If

i12 = MsgBox("Думаю, что правильный образ вжизни может больше помочь здоровью, чем лекарства и врачи?", vbYesNo, "Вопрос №13")

Sheets(1).Cells(19, 1) = "Вопрос №13 Думаю, что правильный образ вжизни может больше помочь здоровью, чем лекарства и врачи?"

If i12 = vbYes Then

Sheets(1).Cells(19, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №13 Думаю, что правильный образ вжизни может больше помочь здоровью, чем лекарства и врачи? Да"

Print #2, "Вопрос №13 Думаю, что правильный образ вжизни может больше помочь здоровью, чем лекарства и врачи? Да"

Else

Sheets(1).Cells(19, 2) = "Нет"

Print #1, "Вопрос №13 Думаю, что правильный образ вжизни может больше помочь здоровью, чем лекарства и врачи? Нет"

Print #2, "Вопрос №13 Думаю, что правильный образ вжизни может больше помочь здоровью, чем лекарства и врачи? Нет"

End If

i13 = MsgBox("Если люди не подходят друг другу, то, как бы они не старались наладить совместную семейную жизнь, у них все равно ничего не получиться?", vbYesNo, "Вопрос №14")

Sheets(1).Cells(20, 1) = "Вопрос №14 Если люди не подходят друг другу, то, как бы они не старались наладить совместную семейную жизнь, у них все равно ничего не получиться?"

If i13 = vbYes Then

Sheets(1).Cells(20, 2) = "Да"

Print #1, "Вопрос №14 Если люди не подходят друг другу, то, как бы они не старались наладить совместную семейную жизнь, у них все равно ничего не получиться? Да"

Print #2, "Вопрос №14 Если люди не подходят друг другу, то, как бы они не старались наладить совместную семейную жизнь, у них все равно ничего не получиться? Да"

Else

Sheets(1).Cells(20, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №14 Если люди не подходят друг другу, то, как бы они не старались наладить совместную семейную жизнь, у них все равно ничего не получиться? Нет"

Print #2, "Вопрос №14 Если люди не подходят друг другу, то, как бы они не старались наладить совместную семейную жизнь, у них все равно ничего не получиться? Нет"

End If

i14 = MsgBox("То хорошее, что я делаю в жизни, обычно бывает по достоинству оценено другими?", vbYesNo, "Вопрос №15")

Sheets(1).Cells(21, 1) = "Вопрос №15 То хорошее, что я делаю в жизни, обычно бывает по достоинству оценено другими?"

If i14 = vbYes Then

Sheets(1).Cells(21, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №15 То хорошее, что я делаю в жизни, обычно бывает по достоинству оценено другими? Да"

Print #2, "Вопрос №15 То хорошее, что я делаю в жизни, обычно бывает по достоинству оценено другими? Да"

Else

Sheets(1).Cells(21, 2) = "Нет"

Print #1, "Вопрос №15 То хорошее, что я делаю в жизни, обычно бывает по достоинству оценено другими? Нет"

Print #2, "Вопрос №15 То хорошее, что я делаю в жизни, обычно бывает по достоинству оценено другими? Нет"

End If

i15 = MsgBox("Дети вырастают такими, какими их воспитывают родители?", vbYesNo, "Вопрос №16")

Sheets(1).Cells(22, 1) = "Вопрос №16 Дети вырастают такими, какими их воспитывают родители?"

If i15 = vbYes Then

Sheets(1).Cells(22, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №16 Дети вырастают такими, какими их воспитывают родители? Да"

Print #2, "Вопрос №16 Дети вырастают такими, какими их воспитывают родители? Да"

Else

Sheets(1).Cells(22, 2) = "Нет"

Print #1, "Вопрос №16 Дети вырастают такими, какими их воспитывают родители? Нет"

Print #2, "Вопрос №16 Дети вырастают такими, какими их воспитывают родители? Нет"

End If

i16 = MsgBox("Я думаю, что случай или судьба не играют важной роли в моей жизни?", vbYesNo, "Вопрос №17")

Sheets(1).Cells(23, 1) = "Вопрос №17 Я думаю, что случай или судьба не играют важной роли в моей жизни?"

If i16 = vbYes Then

Sheets(1).Cells(23, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №17 Я думаю, что случай или судьба не играют важной роли в моей жизни? Да"

Print #2, "Вопрос №17 Я думаю, что случай или судьба не играют важной роли в моей жизни? Да"

Else

Sheets(1).Cells(23, 2) = "Нет"

Print #1, "Вопрос №17 Я думаю, что случай или судьба не играют важной роли в моей жизни? Нет"

Print #2, "Вопрос №17 Я думаю, что случай или судьба не играют важной роли в моей жизни? Нет"

End If

i17 = MsgBox("Я не стараюсь планировать свою жизнь далеко впереди, потомучто многое зависит не от меня, а от того, как сложатся обстоятельства?", vbYesNo, "Вопрос №18")

Sheets(1).Cells(24, 1) = "Вопрос №18 Я не стараюсь планировать свою жизнь далеко впереди, потомучто многое зависит не от меня, а от того, как сложатся обстоятельства?"

If i17 = vbYes Then

Sheets(1).Cells(24, 2) = "Да"

Print #1, "Вопрос №18 Я не стараюсь планировать свою жизнь далеко впереди, потомучто многое зависит не от меня, а от того, как сложатся обстоятельства? Да"

Print #2, "Вопрос №18 Я не стараюсь планировать свою жизнь далеко впереди, потомучто многое зависит не от меня, а от того, как сложатся обстоятельства? Да"

Else

Sheets(1).Cells(24, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №18 Я не стараюсь планировать свою жизнь далеко впереди, потомучто многое зависит не от меня, а от того, как сложатся обстоятельства? Нет"

Print #2, "Вопрос №18 Я не стараюсь планировать свою жизнь далеко впереди, потомучто многое зависит не от меня, а от того, как сложатся обстоятельства? Нет"

End If

i18 = MsgBox("Мои отметки в школе больше всего завиисели от моих усилий и степени подготовленности?", vbYesNo, "Вопрос №19")

Sheets(1).Cells(25, 1) = "Вопрос №19 Мои отметки в школе больше всего завиисели от моих усилий и степени подготовленности?"

If i18 = vbYes Then

Sheets(1).Cells(25, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №19 Мои отметки в школе больше всего завиисели от моих усилий и степени подготовленности? Да"

Print #2, "Вопрос №19 Мои отметки в школе больше всего завиисели от моих усилий и степени подготовленности? Да"

Else

Sheets(1).Cells(25, 2) = "Нет"

Print #1, "Вопрос №19 Мои отметки в школе больше всего завиисели от моих усилий и степени подготовленности? Нет"

Print #2, "Вопрос №19 Мои отметки в школе больше всего завиисели от моих усилий и степени подготовленности? Нет"

End If

i19 = MsgBox("В семейных конфликтах я чаще чувствую вину за собой, чем за противоположной стороной?", vbYesNo, "Вопрос №20")

Sheets(1).Cells(26, 1) = "Вопрос №20 В семейных конфликтах я чаще чувствую вину за собой, чем за противоположной стороной?"

If i19 = vbYes Then

Sheets(1).Cells(26, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №20 В семейных конфликтах я чаще чувствую вину за собой, чем за противоположной стороной? Да"

Print #2, "Вопрос №20 В семейных конфликтах я чаще чувствую вину за собой, чем за противоположной стороной? Да"

Else

Sheets(1).Cells(26, 2) = "Нет"

Print #1, "Вопрос №20 В семейных конфликтах я чаще чувствую вину за собой, чем за противоположной стороной? Нет"

Print #2, "Вопрос №20 В семейных конфликтах я чаще чувствую вину за собой, чем за противоположной стороной? Нет"

End If

i20 = MsgBox("Жизнь большинства людей зависит от стечения обстоятельств?", vbYesNo, "Вопрос №21")

Sheets(1).Cells(27, 1) = "Вопрос №21 Жизнь большинства людей зависит от стечения обстоятельств?"

If i20 = vbYes Then

Sheets(1).Cells(27, 2) = "Да"

Print #1, "Вопрос №21 Жизнь большинства людей зависит от стечения обстоятельств? Да"

Print #2, "Вопрос №21 Жизнь большинства людей зависит от стечения обстоятельств? Да"

Else

Sheets(1).Cells(27, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №21 Жизнь большинства людей зависит от стечения обстоятельств? Нет"

Print #2, "Вопрос №21 Жизнь большинства людей зависит от стечения обстоятельств? Нет"

End If

i21 = MsgBox("я предпочитаю такое руководство, при котором можно самостоятельно определять, что и как делать?", vbYesNo, "Вопрос №22")

Sheets(1).Cells(28, 1) = "Вопрос №22 я предпочитаю такое руководство, при котором можно самостоятельно определять, что и как делать?"

If i21 = vbYes Then

Sheets(1).Cells(28, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №22 я предпочитаю такое руководство, при котором можно самостоятельно определять, что и как делать? Да"

Print #2, "Вопрос №22 я предпочитаю такое руководство, при котором можно самостоятельно определять, что и как делать? Да"

Else

Sheets(1).Cells(28, 2) = "Нет"

Print #1, "Вопрос №22 я предпочитаю такое руководство, при котором можно самостоятельно определять, что и как делать? Нет"

Print #2, "Вопрос №22 я предпочитаю такое руководство, при котором можно самостоятельно определять, что и как делать? Нет"

End If

i22 = MsgBox("Думаю, что мой образ жизни ни в коей мере не является причиной моих болезней?", vbYesNo, "Вопрос №23")

Sheets(1).Cells(29, 1) = "Вопрос №23 Думаю, что мой образ жизни ни в коей мере не является причиной моих болезней?"

If i22 = vbYes Then

Sheets(1).Cells(29, 2) = "Да"

Print #1, "Вопрос №23 Думаю, что мой образ жизни ни в коей мере не является причиной моих болезней? Да"

Print #2, "Вопрос №23 Думаю, что мой образ жизни ни в коей мере не является причиной моих болезней? Да"

Else

Sheets(1).Cells(29, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №23 Думаю, что мой образ жизни ни в коей мере не является причиной моих болезней? Нет"

Print #2, "Вопрос №23 Думаю, что мой образ жизни ни в коей мере не является причиной моих болезней? Нет"

End If

i23 = MsgBox("Как правило, именно неудачное стечение обстоятельств мешает людям добиться успеха в своем деле?", vbYesNo, "Вопрос №24")

Sheets(1).Cells(30, 1) = "Вопрос №24 Как правило, именно неудачное стечение обстоятельств мешает людям добиться успеха в своем деле?"

If i23 = vbYes Then

Sheets(1).Cells(30, 2) = "Да"

Print #1, "Вопрос №24 Как правило, именно неудачное стечение обстоятельств мешает людям добиться успеха в своем деле? Да"

Print #2, "Вопрос №24 Как правило, именно неудачное стечение обстоятельств мешает людям добиться успеха в своем деле? Да"

Else

Sheets(1).Cells(30, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №24 Как правило, именно неудачное стечение обстоятельств мешает людям добиться успеха в своем деле? Нет"

Print #2, "Вопрос №24 Как правило, именно неудачное стечение обстоятельств мешает людям добиться успеха в своем деле? Нет"

End If

i24 = MsgBox("в конце концов за плохое управление организацией ответственны сами люди, которые в ней работают?", vbYesNo, "Вопрос №25")

Sheets(1).Cells(31, 1) = "Вопрос №25 в конце концов за плохое управление организацией ответственны сами люди, которые в ней работают?"

If i24 = vbYes Then

Sheets(1).Cells(31, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №25 в конце концов за плохое управление организацией ответственны сами люди, которые в ней работают? Да"

Print #2, "Вопрос №25 в конце концов за плохое управление организацией ответственны сами люди, которые в ней работают? Да"

Else

Sheets(1).Cells(31, 2) = "Нет"

Print #1, "Вопрос №25 в конце концов за плохое управление организацией ответственны сами люди, которые в ней работают? Нет"

Print #2, "Вопрос №25 в конце концов за плохое управление организацией ответственны сами люди, которые в ней работают? Нет"

End If

i25 = MsgBox("Я часто чувствую,что ничего не могу изменить в сложившихся отношениях в семье?", vbYesNo, "Вопрос №26")

Sheets(1).Cells(32, 1) = "Вопрос №26 Я часто чувствую,что ничего не могу изменить в сложившихся отношениях в семье?"

If i25 = vbYes Then

Sheets(1).Cells(32, 2) = "Да"

Print #1, "Вопрос №26 Я часто чувствую,что ничего не могу изменить в сложившихся отношениях в семье? Да"

Print #2, "Вопрос №26 Я часто чувствую,что ничего не могу изменить в сложившихся отношениях в семье? Да"

Else

Sheets(1).Cells(32, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №26 Я часто чувствую,что ничего не могу изменить в сложившихся отношениях в семье? Нет"

Print #2, "Вопрос №26 Я часто чувствую,что ничего не могу изменить в сложившихся отношениях в семье? Нет"

End If

i26 = MsgBox("Если я захочу, то могу расположить к себе почти любого человека?", vbYesNo, "Вопрос №27")

Sheets(1).Cells(33, 1) = "Вопрос №27 Если я захочу, то могу расположить к себе почти любого человека?"

If i26 = vbYes Then

Sheets(1).Cells(33, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №27 Если я захочу, то могу расположить к себе почти любого человека? Да"

Print #2, "Вопрос №27 Если я захочу, то могу расположить к себе почти любого человека? Да"

Else

Sheets(1).Cells(33, 2) = "Нет"

Print #1, "Вопрос №27 Если я захочу, то могу расположить к себе почти любого человека? Нет"

Print #2, "Вопрос №27 Если я захочу, то могу расположить к себе почти любого человека? Нет"

End If

i27 = MsgBox("На подростающее поколение влияет так много разных обстоятельств, что усилия родителей по их воспитанию часто оказываются бесполезными?", vbYesNo, "Вопрос №28")

Sheets(1).Cells(34, 1) = "Вопрос №28 На подростающее поколение влияет так много разных обстоятельств, что усилия родителей по их воспитанию часто оказываются бесполезными?"

If i27 = vbYes Then

Sheets(1).Cells(34, 2) = "Да"

Print #1, "Вопрос №28 На подростающее поколение влияет так много разных обстоятельств, что усилия родителей по их воспитанию часто оказываются бесполезными? Да"

Print #2, "Вопрос №28 На подростающее поколение влияет так много разных обстоятельств, что усилия родителей по их воспитанию часто оказываются бесполезными? Да"

Else

Sheets(1).Cells(34, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №28 На подростающее поколение влияет так много разных обстоятельств, что усилия родителей по их воспитанию часто оказываются бесполезными? Нет"

Print #2, "Вопрос №28 На подростающее поколение влияет так много разных обстоятельств, что усилия родителей по их воспитанию часто оказываются бесполезными? Нет"

End If

i28 = MsgBox("То, что со мной случается, - это дело моих собственных рук?", vbYesNo, "Вопрос №29")

Sheets(1).Cells(35, 1) = "Вопрос №29 То, что со мной случается, - это дело моих собственных рук?"

If i28 = vbYes Then

Sheets(1).Cells(35, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №29 То, что со мной случается, - это дело моих собственных рук? Да"

Print #2, "Вопрос №29 То, что со мной случается, - это дело моих собственных рук? Да"

Else

Sheets(1).Cells(35, 2) = "Нет"

Print #1, "Вопрос №29 То, что со мной случается, - это дело моих собственных рук? Нет"

Print #2, "Вопрос №29 То, что со мной случается, - это дело моих собственных рук? Нет"

End If

i29 = MsgBox("Иногда трудно бывает понять, почему руководители поступают так, а не иначе?", vbYesNo, "Вопрос №30")

Sheets(1).Cells(36, 1) = "Вопрос №30 Иногда трудно бывает понять, почему руководители поступают так, а не иначе?"

If i29 = vbYes Then

Sheets(1).Cells(36, 2) = "Да"

Print #1, "Вопрос №30 Иногда трудно бывает понять, почему руководители поступают так, а не иначе? Да"

Print #2, "Вопрос №30 Иногда трудно бывает понять, почему руководители поступают так, а не иначе? Да"

Else

Sheets(1).Cells(36, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №30 Иногда трудно бывает понять, почему руководители поступают так, а не иначе? Нет"

Print #2, "Вопрос №30 Иногда трудно бывает понять, почему руководители поступают так, а не иначе? Нет"

End If

i30 = MsgBox("Человек, которые не смог добиться успеха в своей работе, скорее всего, просто не проявил достаточно усилий?", vbYesNo, "Вопрос №31")

Sheets(1).Cells(37, 1) = "Вопрос №31 Человек, которые не смог добиться успеха в своей работе, скорее всего, просто не проявил достаточно усилий?"

If i30 = vbYes Then

Sheets(1).Cells(37, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №31 Человек, которые не смог добиться успеха в своей работе, скорее всего, просто не проявил достаточно усилий? Да"

Print #2, "Вопрос №31 Человек, которые не смог добиться успеха в своей работе, скорее всего, просто не проявил достаточно усилий? Да"

Else

Sheets(1).Cells(37, 2) = "Нет"

Print #1, "Вопрос №31 Человек, которые не смог добиться успеха в своей работе, скорее всего, просто не проявил достаточно усилий? Нет"

Print #2, "Вопрос №31 Человек, которые не смог добиться успеха в своей работе, скорее всего, просто не проявил достаточно усилий? Нет"

End If

i31 = MsgBox("Чаще всего я могу добиться от членов моей семьи того, что я хочу?", vbYesNo, "Вопрос №32")

Sheets(1).Cells(38, 1) = "Вопрос №32 Чаще всего я могу добиться от членов моей семьи того, что я хочу?"

If i31 = vbYes Then

Sheets(1).Cells(38, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №32 Чаще всего я могу добиться от членов моей семьи того, что я хочу? Да"

Print #2, "Вопрос №32 Чаще всего я могу добиться от членов моей семьи того, что я хочу? Да"

Else

Sheets(1).Cells(38, 2) = "Нет"

Print #1, "Вопрос №32 Чаще всего я могу добиться от членов моей семьи того, что я хочу? Нет"

Print #2, "Вопрос №32 Чаще всего я могу добиться от членов моей семьи того, что я хочу? Нет"

End If

i32 = MsgBox("В неприятностях и неудачах, которые были в моей жизни, чаще были виноваты другие люди, а не я?", vbYesNo, "Вопрос №33")

Sheets(1).Cells(39, 1) = "Вопрос №33 В неприятностях и неудачах, которые были в моей жизни, чаще были виноваты другие люди, а не я?"

If i32 = vbYes Then

Sheets(1).Cells(39, 2) = "Да"

Print #1, "Вопрос №33 В неприятностях и неудачах, которые были в моей жизни, чаще были виноваты другие люди, а не я? Да"

Print #2, "Вопрос №33 В неприятностях и неудачах, которые были в моей жизни, чаще были виноваты другие люди, а не я? Да"

Else

Sheets(1).Cells(39, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №33 В неприятностях и неудачах, которые были в моей жизни, чаще были виноваты другие люди, а не я? Нет"

Print #2, "Вопрос №33 В неприятностях и неудачах, которые были в моей жизни, чаще были виноваты другие люди, а не я? Нет"

End If

i33 = MsgBox("Ребенка всегда можно уберечь от простуды, если за ним следить и правильно его одевать?", vbYesNo, "Вопрос №34")

Sheets(1).Cells(40, 1) = "Вопрос №34 Ребенка всегда можно уберечь от простуды, если за ним следить и правильно его одевать?"

If i33 = vbYes Then

Sheets(1).Cells(40, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №34 Ребенка всегда можно уберечь от простуды, если за ним следить и правильно его одевать? Да"

Print #2, "Вопрос №34 Ребенка всегда можно уберечь от простуды, если за ним следить и правильно его одевать? Да"

Else

Sheets(1).Cells(40, 2) = "Нет"

Print #1, "Вопрос №34 Ребенка всегда можно уберечь от простуды, если за ним следить и правильно его одевать? Нет"

Print #2, "Вопрос №34 Ребенка всегда можно уберечь от простуды, если за ним следить и правильно его одевать? Нет"

End If

i34 = MsgBox("в сложных обстоятельствах я предпочитаю подождать, пока проблемы не решаться сами собой?", vbYesNo, "Вопрос №35")

Sheets(1).Cells(41, 1) = "Вопрос №35 в сложных обстоятельствах я предпочитаю подождать, пока проблемы не решаться сами собой?"

If i34 = vbYes Then

Sheets(1).Cells(41, 2) = "Да"

Print #1, "Вопрос №35 в сложных обстоятельствах я предпочитаю подождать, пока проблемы не решаться сами собой? Да"

Print #2, "Вопрос №35 в сложных обстоятельствах я предпочитаю подождать, пока проблемы не решаться сами собой? Да"

Else

Sheets(1).Cells(41, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №35 в сложных обстоятельствах я предпочитаю подождать, пока проблемы не решаться сами собой? Нет"

Print #2, "Вопрос №35 в сложных обстоятельствах я предпочитаю подождать, пока проблемы не решаться сами собой? Нет"

End If

i35 = MsgBox("Успех является результатом упорной рботы и мало зависит от случая или везения?", vbYesNo, "Вопрос №36")

Sheets(1).Cells(42, 1) = "Вопрос №36 Успех является результатом упорной рботы и мало зависит от случая или везения?"

If i35 = vbYes Then

Sheets(1).Cells(42, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №36 Успех является результатом упорной рботы и мало зависит от случая или везения? Да"

Print #2, "Вопрос №36 Успех является результатом упорной рботы и мало зависит от случая или везения? Да"

Else

Sheets(1).Cells(42, 2) = "Нет"

Print #1, "Вопрос №36 Успех является результатом упорной рботы и мало зависит от случая или везения? Нет"

Print #2, "Вопрос №36 Успех является результатом упорной рботы и мало зависит от случая или везения? Нет"

End If

i36 = MsgBox("Я Чувствую, что то меня больше, чем от кого бы то ни было,зависит счастье моей семьи?", vbYesNo, "Вопрос №37")

Sheets(1).Cells(43, 1) = "Вопрос №37 Я Чувствую, что то меня больше, чем от кого бы то ни было,зависит счастье моей семьи?"

If i36 = vbYes Then

Sheets(1).Cells(43, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №37 Я Чувствую, что то меня больше, чем от кого бы то ни было,зависит счастье моей семьи? Да"

Print #2, "Вопрос №37 v Да"

Else

Sheets(1).Cells(43, 2) = "Нет"

Print #1, "Вопрос №37 Я Чувствую, что то меня больше, чем от кого бы то ни было,зависит счастье моей семьи? Нет"

Print #2, "Вопрос №37 Я Чувствую, что то меня больше, чем от кого бы то ни было,зависит счастье моей семьи? Нет"

End If

i37 = MsgBox("Мне всегда было трудно понять, почему я нравлюсь одним людям и не нравилось другим?", vbYesNo, "Вопрос №38")

Sheets(1).Cells(44, 1) = "Вопрос №38 v"

If i37 = vbYes Then

Sheets(1).Cells(44, 2) = "Да"

Print #1, "Вопрос №38 Мне всегда было трудно понять, почему я нравлюсь одним людям и не нравилось другим? Да"

Print #2, "Вопрос №38 Мне всегда было трудно понять, почему я нравлюсь одним людям и не нравилось другим? Да"

Else

Sheets(1).Cells(44, 2) = "Нет"

sums = sums + 1

Print #1, "Вопрос №38 Мне всегда было трудно понять, почему я нравлюсь одним людям и не нравилось другим? Нет"

Print #2, "Вопрос №38 Мне всегда было трудно понять, почему я нравлюсь одним людям и не нравилось другим? Нет"

End If

i38 = MsgBox("Я всегда предпочитаю принимать решение и действовать самостоятельно, не надеясь на помощь других людей и не полагаясь на судьбу?", vbYesNo, "Вопрос №39")

Sheets(1).Cells(45, 1) = "Вопрос №39 Я всегда предпочитаю принимать решение и действовать самостоятельно, не надеясь на помощь других людей и не полагаясь на судьбу?"

If i38 = vbYes Then

Sheets(1).Cells(45, 2) = "Да"

sums = sums + 1

Print #1, "Вопрос №39 Я всегда предпочитаю принимать решение и действовать самостоятельно, не надеясь на помощь других людей и не полагаясь на судьбу? Да"

Print #2, "Вопрос №39 Я всегда предпочитаю принимать решение и действовать самостоятельно, не надеясь на помощь других людей и не полагаясь на судьбу? Да"

Else

Sheets(1).Cells(45, 2) = "Нет"

Print #1, "Вопрос №39 Я всегда предпочитаю принимать решение и действовать самостоятельно, не надеясь на помощь других людей и не полагаясь на судьбу? Нет"

Print #2, "Вопрос №39 Я всегда предпочитаю принимать решение и действовать самостоятельно, не надеясь на помощь других людей и не полагаясь на судьбу? Нет"

End If

i39 = MsgBox("К сожалению, заслуги человека часто остаются непризнаными, несмотря на все его страдания?", vbYesNo, "Вопрос №40")

Sheets(1).Cells(46, 1) = "Вопрос №40 К сожалению, заслуги человека часто остаются непризнаными, несмотря на все его страдания?"

If i39 = vbYes Then

Sheets(1).Cells(46, 2) = "Да"

Print #1, "Вопрос №40 К сожалению, заслуги человека часто остаются непризнаными, несмотря на все его страдания? Да"

Print #2, "Вопрос №40 К сожалению, заслуги человека часто о

Результат выполненного задания №9

Поиск по сайту