Курсовая работа: Успеваемость студентов

Value = Queue.Value

Queue.RemoveItem (Index)

Queue.AddItem Value, Index + 1

Queue.ListIndex = Index + 1

End If

End Sub

Private Sub Group_Change()

Dim i As Integer

Dim Value As String

i = 2

Student.Clear

With ActiveWorkbook.Sheets(1)

Do

Value = .Cells(i, 1).Value

If Value = Group.Value Then

Student.AddItem .Cells(i, 2).Value + " " + .Cells(i, 3).Value + " " + .Cells(i, 4).Value

End If

i = i + 1

Loop Until Len(Value) = 0

End With

Student.ListIndex = 0

End Sub

Private Sub Remove_Click()

If Not (Queue.ListCount = 0 Or Queue.ListIndex = - 1) Then

Queue.RemoveItem Queue.ListIndex

End If

End Sub

Private Sub Up_Click()

Dim Index As Integer