Информационное обеспечение деятельности предприятия "ЕАЕ-Консалт"
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
Then= s3 + 2IfRadioButton2.Checked = True And (a = 1 Or a = 9 Or a = 25 Or a = 33) Then= s3 + 3IfRadioButton3.Checked = True And (a = 5 Or a = 13 Or a = 17 Or a = 21 Or a = 29 Or a = 37) Then= s3 + 3IfRadioButton3.Checked = True And (a = 1 Or a = 9 Or a = 25 Or a = 33) Then= s3 + 2IfRadioButton4.Checked = True And (a = 5 Or a = 13 Or a = 17 Or a = 21 Or a = 29 Or a = 37) Then= s3 + 4IfRadioButton4.Checked = True And (a = 1 Or a = 9 Or a = 25 Or a = 33) Then= s3 + 1IfRadioButton1.Checked = True And (a = 3 Or a = 7 Or a = 11 Or a = 15 Or a = 19 Or a = 23 Or a = 27 Or a = 31 Or a = 35 Or a = 39) Then= s4 + 1IfRadioButton2.Checked = True And (a = 3 Or a = 7 Or a = 11 Or a = 15 Or a = 19 Or a = 23 Or a = 27 Or a = 31 Or a = 35 Or a = 39) Then= s4 + 2IfRadioButton3.Checked = True And (a = 3 Or a = 7 Or a = 11 Or a = 15 Or a = 19 Or a = 23 Or a = 27 Or a = 31 Or a = 35 Or a = 39) Then= s4 + 3IfRadioButton4.Checked = True And (a = 3 Or a = 7 Or a = 11 Or a = 15 Or a = 19 Or a = 23 Or a = 27 Or a = 31 Or a = 35 Or a = 39) Then
s4 = s4 + 4If
Сбрасываем нажатую кнопку при каждом новом вопросе= a + 1a = 2 Then.Text = "Мне хочется узнать, понять, докопаться до сути"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 3 Then.Text = "Я разъярен".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = False
End Ifa = 4 Then.Text = "Я падаю духом, сталкиваясь с трудностями в учебе"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 5 Then.Text = "Я напряжен".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 6 Then.Text = "Я испытываю любопытство".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 7 Then
Label1.Text = "Мне хочется стукнуть кулаком по столу"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 8 Then
Label1.Text = "Я стараюсь получать только хорошие и отличные оценки"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 9 Then.Text = "Я раскован".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 10 Then.Text = "Мне интересно".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 11 Then.Text = "Я рассержен".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = False If
If a = 12 Then
Label1.Text = "Я прилагаю все силы, чтобы добиться успеха в учебе"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 13 Then
Label1.Text = "Меня волнует возможные неудачи"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 14 Then
Label1.Text = "Мне кажется, что урок никогда не кончится"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 15 Then
Label1.Text = "Мне хочется на кого-нибудь ,закричать"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 16 Then
Label1.Text = "Я стараюсь все делать правильно"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 17 Then
Label1.Text = "Я чувствую себя неудачником"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 18 Then
Label1.Text = "Я чувствую себя исследователем"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 19 Then
Label1.Text = "Мне хочется что-нибудь сломать"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 20 Then
Label1.Text = "Я чувствую, что не справлюсь с заданием"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 21 Then.Text = "Я взвинчен".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 22 Then.Text = "Я энергичен".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 23 Then.Text = "Я взбешен".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 24 Then.Text = "Я горжусь своими школьными успехами".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = False
End Ifa = 25 Then.Text = "Я чувствую себя совершенно свободно"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 26 Then
Label1.Text = "Я чувствую, что у меня хорошо работает голова"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 27 Then.Text = "Я раздражен".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 28 Then.Text = "Я решаю самые трудные задачи".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 29 Then
Label1.Text = "Мне не хватает уверенности в себе"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 30 Then.Text = "Мне скучно".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 31 Then.Text = "Мне хочется что-нибудь сломать".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 32 Then.Text = "Я стараюсь не получить двойку".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 33 Then.Text = "Я уравновешен".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 34 Then
Label1.Text = "Мне нравиться думать, решать"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 35 Then
Label1.Text = "Я чувствую себя обманутым"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 36 Then
Label1.Text = "Я стремлюсь показать свои способности и ум"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 37 Then.Text = "Я боюсь".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 38 Then.Text = "Я чувствую уныние и тоску".Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 39 Then
Label1.Text = "Меня многое приводит в ярость"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 40 Then
Label1.Text = "Я хочу быть среди лучших"
RadioButton1.Checked = False.Checked = False.Checked = False.Checked = False.Enabled = FalseIfa = 41 Then.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = True.Enabled = TrueIfa = 41 Then
res = s1 + s2 - s3 - s4
Вывод и запись результата в хранилище
If res >= 40 And res <= 60 Then("Познавательная активность: " & s1 & " (" & n1 & ")" & vbCrLf &
"Мотивация достижения: " & s2 & " (" & n2 & ")" & vbCrLf &
"Тревожность: " & s3 & " (" & n3 & ")" & vbCrLf &
"Гнев: " & s4 & " (" & n4 & ")" & vbCrLf &
"В итоге: " & res & " Уровень I" & vbCrLf &
"Вывод:" & vbCrLf &
"Продуктивная мотивация с выраженным преобладанием позновательной мотивации учения и положительным эмоциональным отношением к нему" & vbCrLf &,.OkOnly, Title:="Результат теста").Computer.FileSystem.WriteAllText(CurDir() + "/bd/" + TextBox4.Text + "_" + TextBox1.Text + "_" + TextBox2.Text + "_" + TextBox3.Text + ".txt", "Познавательная активност