End Sub

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

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, при реализации способа поэлементного заполнения списка ListBox1, к объекту ListBox1 применяется метод AddItem, с помощью которого в операторе цикла Withдобавляются элементы списка, например .AddItem "Июнь" и т.д.;

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

– Кроме того, для списка ListBox2 применяется свойство .ControlSource,с помощью которого устанавливается ячейка (в данном случае это “A7”), в которую возвращается выбранный элемент списка ListBox2,так как на рис. 1.1 в списке ListBox2была выбрана вторая строка, второй элемент списка "Июль", то поэтому этот элемент и отобразился в ячейке A7;

– В операторе цикла WithобъектаListBox2для объекта TextBox1 применяется свойство .ListIndex, котороевозвращает номер текущего, то есть выбранного, элемента списка. Так как первоначально после вызова объекта UserForm объекты ListBox1- ListBox5 не заполнены и, следовательно, в объекте ListBox2никакой элемент списка не выбран, то после нажатия кнопки “Заполнить”, в окне объекта TextBox1,рис. 1.1, появляется значение “-1”. После выбора в объекте ListBox2 элемента списка "Июль", и повторного нажатия кнопки “Заполнить”, в окне объекта TextBox1,рис. 1.1, появляется значение “1”, а не “2”, так как нумерация элементов списка начинается с нуля;

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, при реализации способа заполнения списка ListBox3из диапазона, к объекту ListBox3 применяется свойство RowSours,с помощью которого устанавливается диапазон, содержащий элементы списка, в данном случае "A1:B6";

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

– Кроме того, для списка ListBox3 применяется свойство .ControlSource,с помощью которого устанавливается ячейка (в данном случае это “A8”), в которую возвращается выбранный элемент списка ListBox3,так как на рис. 1.1 в списке ListBox3была выбрана пятая строка списка ListBox3, элементом которого является "5", то поэтому этот элемент и отобразился в ячейке A8;

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, при реализации способа заполнения списка ListBox4поэлементно, если список состоит из нескольких колонок, к объекту ListBox4 применяется метод AddItem, с помощью которого в операторе цикла Withдобавляются элементы списка, например .AddItem "Июнь" и т.д.; Кроме того, к объекту ListBox4 применяется свойство .List, в качестве значений которого элементам списка ListBox4,находящимся на пересечении указанныхстрок и столбцов, сообщаются соответствующие символьные константы, например, "0.6", "30"и т.д.;

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

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

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