Visual Basic. Практика. Ищенко В.А - 53 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

53
Next i
k = 1
max = b(1)
l = 1
min = b(1)
For i = 2 To m
If b(i) > max Then max = b(i): k = i
If b(i) < min Then min = b(i): l = i
Next i
ТекстМинСред.Text = min
ТекстМаксСред.Text = max
q2 = 0
q23 = 0
q3 = 0
q34 = 0
q4 = 0
q45 = 0
q5 = 0
For i = 1 To m
If b(i) = 2 Then q2 = q2 + 1: ЛистФамилии2.AddItem c(i) Else
If b(i) > 2 And b(i) < 3 Then q23 = q23 + 1:
ЛистФамилии23.AddItem c(i) Else
If b(i) = 3 Then q3 = q3 + 1: ЛистФамилии3.AddItem c(i) Else
If b(i) > 3 And b(i) < 4 Then q34 = q34 + 1:
ЛистФамилии34.AddItem c(i) Else
If b(i) = 4 Then q4 = q4 + 1: ЛистФамилии4.AddItem c(i) Else
If b(i) > 4 And b(i) < 5 Then q45 = q45 + 1:
ЛистФамилии45.AddItem c(i) Else
If b(i) = 5 Then q5 = q5 + 1: ЛистФамилии5.AddItem c(i) Else
Next i
Оценок2.Text = q2
Оценок23.Text = q23
Оценок3.Text = q3
Оценок3.Text = q34
Оценок4.Text = q4
Оценок45.Text = q45
Оценок5.Text = q5
КнопкаВыход.SetFocus
30 End Sub
Private Sub КнопкаВыход_Click()
End
End Sub 
                                    53
       Next i
       k=1
       max = b(1)
       l=1
       min = b(1)
       For i = 2 To m
       If b(i) > max Then max = b(i): k = i
       If b(i) < min Then min = b(i): l = i
       Next i
       Т екс тМ инС ред.Text = min
       Т екс тМ акс С ред.Text = max
       q2 = 0
       q23 = 0
       q3 = 0
       q34 = 0
       q4 = 0
       q45 = 0
       q5 = 0
       For i = 1 To m
       If b(i) = 2 Then q2 = q2 + 1: Л ис тФ ам илии2.AddItem c(i) Else
       If b(i) > 2 And b(i) < 3 Then q23 = q23 +                          1:
Л ис тФ ам илии23.AddItem c(i) Else
       If b(i) = 3 Then q3 = q3 + 1: Л ис тФ ам илии3.AddItem c(i) Else
       If b(i) > 3 And b(i) < 4 Then q34 = q34 +                          1:
Л ис тФ ам илии34.AddItem c(i) Else
       If b(i) = 4 Then q4 = q4 + 1: Л ис тФ ам илии4.AddItem c(i) Else
       If b(i) > 4 And b(i) < 5 Then q45 = q45 +                          1:
Л ис тФ ам илии45.AddItem c(i) Else
       If b(i) = 5 Then q5 = q5 + 1: Л ис тФ ам илии5.AddItem c(i) Else
       Next i
       О ценок2.Text = q2
       О ценок23.Text = q23
       О ценок3.Text = q3
       О ценок3.Text = q34
       О ценок4.Text = q4
       О ценок45.Text = q45
       О ценок5.Text = q5
       К нопкаВ ы х од.SetFocus
30     End Sub


     Private Sub К нопкаВ ы х од_Click()
     End
     End Sub

Страницы