Итоги сессии

Создание списков

Работа со списками (базами данных) в Excel

End Sub

End Sub

Sub metod(a, n) 'Построение пирамиды

j = n \ 2 'Число родительских узлов

Do While j >= 1 'Проверка номера родительского узла

For i = 1 To j 'Цикл по родительским узлам

If a(2 * i) <= a(2 * i + 1) Then

m = a(2 * i + 1) 'Максимальный правый дочерний

If a(i) < m Then

a(2 * i + 1) = a(i) 'Поменять с максимальным правым

a(i) = m 'дочерним, если он больше родительского

End If

Else

m = a(2 * i) 'Максимальный левый дочерний

If a(i) < m Then 'Поменять с максимальным левым

a(2 * i) = a(i) 'дочерним, если он больше родительского

a(i) = m

End If

End If

Next

j = j - 1 'Уменьшить номер родительского узла

Loop

Private Sub Command1_Click()

Dim a(1 To 100)

Dim b(1 To 100)

Picture1.Print

n = Val(Text1.Text)

av = Split(Text2.Text)

For i = 1 To n

a(i) = Val(av(i - 1)) 'Формирование исходного массива

Next

For i = n To 1 Step -1 'Формирование массива без

For j = 1 To i 'последнего элемента

b(j) = a(j)

Next

Call metod(b, i) 'вызов метода построения пирамиды

For j = 1 To i '

a(j) = b(j)

Next

p = a(1) '

a(1) = a(i)

a(i) = p

Next

For i = 1 To n

Picture1.Print a(i);

Next

Ввод одномерного массива из файла:

Dim n As Byte

Dim a(1 To 100) As Single

Private Sub Command1_Click()

CommonDialog1.ShowOpen

f = CommonDialog1.FileName

Open f For Input As #1

Input #1, n

For i = 1 To n

Input #1, a(i)

Next

For i = 1 To n

Picture1.Print a(i); " ";

Next

End Sub

Список – это прямоугольная область ячеек, в которой все строки имеют фиксированную структуру заполнения. Excel позволяет искать, упорядочивать, преобразовывать информацию в списках. Работа со списками выполняется с помощью команд меню Данные. Пример списка:

Каждая запись списка содержит информацию об одном объекте и располагается в одной строке таблицы. Запись делится на поля, каждое из которых предназначено для данных одного типа. Для каждого поля отводится один столбец.

Столбцам присваиваются уникальные имена, которые заносятся в первую строку списка, называемую строкой заголовков. Заголовки используются при поиске и сортировке данных.

Правила формирования списка:

· рекомендуется создавать на одном рабочем листе один список или отделять его от других данных пустой строкой и пустым столбцом;

· нельзя отделять строку заголовков от записей пустой строкой, разделять столбцы с заголовками пустыми столбцами, вставлять перед данными в полях пробелы;

· рекомендуется отформатировать строку заголовков так, чтобы она отличалась от строк записей;

· имя поля (заголовок столбца) может состоять из нескольких слов, но обязательно размещенных в одной ячейке;

Создание списка.

Первый способ: ввод данных в ячейки таблицы.

Создать строку заголовков и ввести данные в список в соответствии с правилами его формирования; таблица может иметь заголовок, но в качестве имен полей будет использоваться только одна строка, расположенная непосредственно над данными.

Второй способ: Использование формы данных.

- создать строку заголовков;

- выделить любую ячейку строки заголовков;

- выполнить команду Данные – Форма. Появится ДО.

- заполнить соответствующие поля и щелкнуть по кнопке Добавить для перехода к следующей записи или по кнопке Готово для окончания ввода.

С помощью кнопок ДО Формы можно добавлять и удалять записи, перемещаться к следующей и предыдущей записи, выполнить поиск данных по заданным критериям (перемещаться только по записям, соответствующим заданному критерию).