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

Index = Queue.ListIndex

If Index > 0 Then

Value = Queue.Value

Queue.RemoveItem Index

Queue.AddItem Value, Index - 1

Queue.ListIndex = Index - 1

End If

End Sub

Private Sub UserForm_Initialize()

Dim i As Integer

Dim Value As String

i = 2

With ActiveWorkbook.Sheets(1)

Do

Value = .Cells(i, 1).Value

If Len(Value) > 0 Then

For j = 0 To Group.ListCount - 1

If Group.List(j) = Value Then Exit For

Next j

If j = Group.ListCount Then Group.AddItem Value

i = i + 1

End If

Loop Until Len(Value) = 0

End With

Group.ListIndex = 0

End Sub

Форма «DataForm»:

Dim Cursor As Integer

Dim Count As Integer