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

While Len(ThisWorkbook.Sheets("Storage").Cells(GetListCount + 2, 1).Value) <> 0

GetListCount = GetListCount + 1

Wend

End Function

Private Sub ClearObject()

Group.Value = ""

First.Value = ""

Last.Value = ""

Middle.Value = ""

For i = 0 To Objects.ListCount - 1

ObjectList(i, 0) = 2

ObjectList(i, 1) = 2

Next i

Autumn.Value = ""

Spring.Value = ""

Call Objects_Change

End Sub

Форма «DiaGroupForm»:

Private Sub Autumn_Click()

Autumn.Value = True

Spring.Value = False

End Sub

Private Sub Cancel_Click()

Me.Hide

End Sub

Private Sub Create_Click()

Dim j As Integer

Dim Stat(3) As Integer

Dim Index As Integer