Программа Заполнение объектов ListBox, расположенных на листе Excel

Private Sub CommandButton1_Click()

Dim s(1 To 5, 1 To 3) As String

Dim i As Integer, j As Integer

'Заполнение списка поэлементно, 1 колонка

With ListBox1

.AddItem "Июнь"

.AddItem "Июль"

.AddItem "Август"

.AddItem "Сентябрь"

End With

'Заполнение списка массивом, 1 колонка

With ListBox2

.List = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")

End With

'Заполнение списка поэлементно, несколько колонок

s(1, 1) = "N": s(1, 2) = "Ф.И.О.": s(1, 3) = "Оценка":

s(2, 1) = "1": s(2, 2) = "Петров": s(2, 3) = "5"

s(3, 1) = "2": s(3, 2) = "Сидоров": s(3, 3) = "2"

s(4, 1) = "3": s(4, 2) = "Иванов": s(4, 3) = "3"

s(5, 1) = "4": s(5, 2) = "Ромашкин": s(5, 3) = "4"

With ListBox4

.ColumnCount = 3

.List = s

End With

'Заполнение списка массивом, несколько колонок

With ListBox5

.ColumnCount = 3

.AddItem "июнь"

.List(0, 1) = "06"

.List(0, 2) = "30"

.AddItem "июль"

.List(1, 1) = "07"

.List(1, 2) = "31"

.AddItem "август"

.List(2, 1) = "08"

.List(2, 2) = "31"

.AddItem "сентябрь"

.List(3, 1) = "09"

.List(3, 2) = "30"

End With

End Sub

Private Sub CommandButton2_Click()

ListBox1.Clear

ListBox2.Clear

ListBox4.Clear

ListBox5.Clear

End Sub

Private Sub CommandButton3_Click()

Sheets("лист0").Select

End Sub

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

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, реализуются те же программы, что и в модуле программно поддерживающем объект CommandButton1 раздела 1.1.

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, не реализуется способ заполнения объекта ListBox “из диапазона”, то есть объект ListBox3 – отсутствует;

– В модуле Private Sub CommandButton2_Click(), программно поддерживающем объект CommandButton2, который в свойстве Caption переименован в “Очистить”, к объекту ListBox1 применен метод .Clear, с помощью которого осуществляется удаление элементов списка, анлогично операции применяются к элементам списков объектов ListBox2, ListBox4 и ListBox5;

– В модуле Private Sub CommandButton3_Click(), программно поддерживающем объект CommandButton3, который в свойстве Caption переименован в “Меню”, к объекту Sheets применен метод . Select, с помощью которого выполняется переход на лист оглавления всего пакета.

Лекция 2. Виды алгоритмов. Операторы цикла

Материалы этой статьи опубликованы в [1], [3].

§ 1. Алгоритмы последовательные, разветвляющиеся и циклические с заданным числом итераций и с неизвестным числом итераций

Алгоритм – это строго детерминированная последовательность действий, описывающая процесс преобразования объекта из начального состояния в конечное, записанная с помощью понятных исполнителю команд.

Алгоритм, составленный для некоторого исполнителя, можно представить различными способами: с помощью графического или словесного описания, в виде таблицы, последовательностью формул, записанным на алгоритмическом языке (языке программирования).