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

For j = 0 To 8

Object.AddItem ActiveWorkbook.Sheets("Storage").Cells(1, j + 5).Value

Next j

Object.ListIndex = 0

Autumn.Value = True

End Sub

Форма «DiaStudentForm»:

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

Dim Count As Integer

Dim ChartObj As ChartObject

j = 2

Index = 0

For i = 0 To 3

Stat(i) = 0

Next i

If Autumn.Value = True Then Index = 0 Else Index = 1

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

With ActiveSheet

.Cells.Clear