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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

56
ТекстМинСред.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
End Sub
Private Sub ТекстКоличествоСтудентов_KeyPress(KeyAscii As Integer)
STemplate="qwertyuiop[]asdfghjkl;'\zxcvbnm,./\`!@#$%^&*()_+Ё !;%:?*
()_+йцукенгшщзхъфывапролджэ \\ячсмитьбю . ЙЦУКЕНГШЩЗХЪФЫ
ВАПРОЛДЖЭ/\ЯЧСМИТЬБЮ .QWERTYUIOP[]ASDFGHJKL;'\ZXC\
VBNM,./"
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
If KeyAscii = 13 Then ТекстКоличествоЭкзаменов.SetFocus
End Sub
Private Sub ТекстКоличествоЭкзаменов_KeyPress(KeyAscii As Integer)
STemplate="qwertyuiop[]asdfghjkl;'\zxcvbnm,./\`!@#$%^&*()_+Ё !;%:?*
()_+йцукенгшщзхъфывапролджэ \\ячсмитьбю . ЙЦУКЕНГШЩЗХЪФЫ 
                                        56
       Т екс тМ инС ред.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
       End Sub


Private Sub Т екс тК олич ес твоС ту дентов_KeyPress(KeyAscii As Integer)
STemplate="qwertyuiop[]asdfghjkl;'\zxcvbnm,./\`!@#$%^&*()_+Ё !;%:?*
()_+й цу кенгш щзх ъф ы вапролджэ\\яч с м ить бю .Й Ц У К Е Н Г Ш Щ ЗХ Ъ Ф Ы
В АП Р О Л Д Ж Э /\Я ЧС М И Т Ь Б Ю .QWERTYUIOP[]ASDFGHJKL;'\ZXC\
VBNM,./"
      If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
      If KeyAscii = 13 Then Т екс тК олич ес твоЭ кзам енов.SetFocus
  End Sub


Private Sub Т екс тК олич ес твоЭ кзам енов_KeyPress(KeyAscii As Integer)
STemplate="qwertyuiop[]asdfghjkl;'\zxcvbnm,./\`!@#$%^&*()_+Ё !;%:?*
()_+й цу кенгш щзх ъф ы вапролджэ\\яч с м ить бю .Й Ц У К Е Н Г Ш Щ ЗХ Ъ Ф Ы

Страницы