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

Dim Cursor As Integer

Private Sub Add_Click()

For i = 0 To Queue.ListCount - 1

If Queue.List(i) = Group.Value + " - " + Student.Value Then

MsgBox "Такой элемент уже есть в очереди!"

Exit Sub

End If

Next i

Queue.AddItem Group.Value + " - " + Student.Value

End Sub

Private Sub Cancel_Click()

Me.Hide

End Sub

Private Sub Clear_Click()

Queue.Clear

End Sub

Private Sub Create_Click()

Dim StudentVal As String

Dim GroupVal As String

Dim i As Integer

Dim j As Integer

Dim Value As String

Dim Row As Integer

Row = 2

ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count)

With ActiveSheet

.Cells.Clear

.Columns(1).ColumnWidth = 26

.Columns(2).ColumnWidth = 20