End Sub

Некоторые комментарии к программе:

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, при реализации способа заполнения списка ListBox1массивом, если список состоит из нескольких колонок, сначала объявляется двумерный массив S, а затем с помощью операторов присваивания выполняется заполнение элементов массива. После чего к объекту ListBox1 применяется свойство .List, в качестве значения которого объекту ListBox1 передается двумерный массив символьных констант"№","ФИО,"Оценка"и т.д.

– Так как данные, формируемые в объекте ListBox1представляют собой таблицу, состоящую из трех столбцов, то, к объекту ListBox1 применяется свойство .ColumnCount,значение которого устанавливаетчисло столбцов в списке= 3;

– Модуль объекта CommandButton2, который в свойстве Caption переименован в “Закрыть”,обеспечивает завершение функционирования объекта UserFormза счет применения к объекту UserForm5 методаHide (скрыть).