Лекция 11(7) Примеры программирования задач

Программа кнопки «Студенты с Неудом».

Переписываются фамилии из ListBox1 в ListBox2 если есть оценки 2. Подсчитывается количество остальных.

Private Sub CommandButton3_Click() Dim t As Byte

t = 0

For i = 1 To N - 1

If Val(ListBox1.List(i, 1)) = 2 Then ListBox2.AddItem ListBox1.List(i, 0) Else

If Val(ListBox1.List(i, 2)) = 2 Then ListBox2.AddItem ListBox1 .List(i, 0) Else

t = t + 1’Количество остальных End If

End If

Next

Label13.Caption = Str(t) End Sub

Лекция 11 Информатика,часть2

31

Результат работы программы

Лекция 11 Информатика,часть2

32