исокий" Ifgen = "м" And (s1> = 21 And s1 <= 29) Then = "Норма" Ifgen = "м" And (s1> = 10 And s1 <= 20) Then = "Низький" Ifgen = "м" And s2> = 31 And s2 <= 40 Then = "Високий" Ifgen = "м" And s2> = 21 And s2 <= 29 Then = "Норма" Ifgen = "м" And s2> = 10 And s2 < ; = 20 Then = "Низький" Ifgen = "м" And s3> = 23 And s3 <= 40 Then = "Високий" Ifgen = "м" And s3> = 16 And s3 <= 22 Then = "Норма" Ifgen = "м" And s3> = 10 And s3 <= 15 Then = "Низький" Ifgen = "м" And (s4> = 18 And s4 <= 40 ) Then = "Високий" Ifgen = "м" And (s4> = 12 And s4 <= 18) Then = "Норма" Ifgen = "м" And (s4> = 10 And s4 < = 11) Then = "Низький" Ifn1 = "Високий" And (n3 = "Низький" Or n3 = "Норма") And n4 = "Низький" Then
res1 = "Продуктивна мотивація і позитивне емоційне ставлення до навчання"
End Ifn1 = "Норма" And (n3 = "Низький" Or n3 = "Норма") And n4 = "Низький" Then
res1 = "Позитивне ставлення до навчання"
End Ifn1 = "Низький" And (n3 = "Низький" Or n3 = "Норма") And (n4 = "Низький" Or n4 = "Норма") Then = " ; Переживання нудьги "Ifn1 =" Норма "And (n3 =" Низький "Or n3 =" Норма ") And (n4 =" Низький "Or n4 =" Норма ") Then
res1 = "Дифузне емоційне ставлення" If
If n1 = "Норма" And (n3 = "Низький" Or n3 = "Норма") And n4 = "Високий" Then
res1 = "Дифузне емоційне ставлення при фрустрированности значущих потреб"
End Ifn1 = "Низький" And (n3 = "Низький" Or n3 = "Норма") And n4 = "Високий" Then
res1 = "Негативний емоційне ставлення" If
If n1 = "Високий" And n3 = "Низький" And n4 = "Високий" Then
res1 = "Різко негативне ставлення до навчання"
End Ifn1 = "Високий" And n3 = "Високий" And n4 = "Високий" Then
res1 = "Надмірно підвищена емоційність на уроці, обумовлена ​​незадоволенням провідних соціогенних потреб"
End Ifn1 = "Високий" And n3 = "Високий" And n4 = "Норма" Then
res1 = "Підвищена емоційність на уроці"
End If (n1 = "Норма" Or n1 = "Низький") And n3 = "Високий" And (n4 = "Норма" Or n4 = "Низький") Then = "Тривожність" Ifn1 = "Високий" And (n3 = "Норма" Or n3 = "Низький") And n4 = "Високий" Then
res1 = "Позитивне ставлення при фрустрированности потреб"
End If (n1 = "Високий" Or n1 = "Норма") And n3 = "Низький" And (n4 = "Низький" Or n4 = "Среній") Then
res1 = "Позитивне ставлення при підвищеній чутливості до оціночним аспекту навчання"
End If
End Sub
'Відкриття інструкції
Private Sub КакПройтіТестToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КакПройтиТестToolStripMenuItem.Click.Show () Sub
'Закриття формиSub ВиходToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВиходToolStripMenuItem.Click
Me.Close () Sub
'Відкриття результатів
Private Sub РезультатиToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles РезультатиToolStripMenuItem.Click.Show () SubClassClass Form4Sub Form1_Load (ByVal sender As System.Object, ByVal e As System. EventArgs) Handles MyBase.Load
'Виводимо список файлів з папкіdir As New IO.DirectoryInfo (CurDir () + " bd ") d1 As IO.FileInfo () = dir.GetFiles () d2 As IO.FileInfoEach d2 In d1.Items.Add (d2). Controls.Add (ListBox1) Sub
'Відкриваємо виділений файл
Dim fl As String
Dim way As StringSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click = ListBox1.Text = My.Computer.FileSystem.ReadAllText (CurDir () + " ; bd "+ way) (" Результат: "+ fl, MsgBoxStyle.OkOnly, Title: =" Результат тесту ")
End SubClass
У Form2 використовується тільки висновок тексту.
Висновки
Проходження практики в Усинском філії В«ЕАЕ-КонсалтВ» дало мені ні з чим не порівнянний досвід, а також зміцнив навички роботи з звичними для мене програмами. За цей час я познайомився з багатьма знають свою справу людьми, які змогли поділитися зі мною досвідом роботи в цій компанії, всі ці набуті навички і знання допоможуть мені надалі в майбутній роботі. За час роботи я ознайомився зі структурою багатьох обслуговуваних підприємств, побачив багато нового, і те як працюють люди різних професій. Іноді при вирішенні проблем доводилося стикатися з труднощами (в основном...
