Ирина Фризен - Офисное программирование

• Название: Офисное программирование
• Автор: Ирина Фризен
• Жанр: Программирование
• Год: 2008
• ISBN: 978-5-91131-779-9

Фризен Ирина Григорьевна – кандидат педагогических наук, преподаватель информационных технологий, автор многочисленных работ в сфере информационных технологий.

Настоящее учебное пособие написано в соответствии с государственной программой изучения дисциплины Офисное программирование для средних специальных учебных заведений по специальности 230103 «Автоматизированные системы обработки информации и управления».

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

Учебное пособие ставит перед собой цель помочь студентам изучить данную дисциплину в полном объеме, отвечающем требованиям государственного стандарта по дисциплине.

Предназначается для преподавателей и студентов средних специальных учебных заведений, а также может быть использовано студентами высших учебных заведений, изучающих данную дисциплину.

В учебном пособии рассматривается более 60 задач, сопровождаемых 130 рисунками и подробными объяснениями.

---

Например:

Option Base 0 'установка по умолчанию с нуля

Option Base 1 'индексы массивов начинаются с 1

Пример 11. Создать программу, организующую три двумерных массива. Первые два массива определены поэлементно в программе. Третий массив А организуется путем суммирования соответствующих членов массивов В и С (рис. 24).

Результаты организации массивов выведены в соответствующие метки на форме после нажатия на кнопку Массив.

Листинг примера 11

Private Sub CommandButton1_Click()

Dim B(1 To 2, 1 To 2) As Integer

Dim c(1 To 2, 1 To 2) As Integer

Dim A(1 To 2, 1 To 2) As Integer

B(1, 1) = 5

B(1, 2) = 4

B(2, 1) = 8

B(2, 2) = 10

c(1, 1) = 0

c(1, 2) = 1

c(2, 1) = 5

c(2, 2) = 10

For i = 1 To 2

For j = 1 To 2

A(i, j) = B(i, j) + c(i, j)

Next j

Next i

Label1.Caption = «a(1,1)=» & A(1, 1) & « a(1,2)=» & A(1, 2)& « a(2,1)=» & A(2, 1) & « a(2,2)=» & A(2, 2) Label2.Caption = «b(1,1)=» & B(1, 1) & « b(1,2)=» & B(1, 2) & « b(2,1)=» & B(2, 1) & « b(2,2)=» & B(2, 2)

Label3.Caption = «c(1,1)=» & c(1, 1) & « c(1,2)=» & c(1, 2) & « c(2,1)=» & c(2, 1) & « c(2,2)=» & c(2, 2)

End Sub

Рис. 24. Форма примера 11 в режиме конструктора и в рабочем состоянии

Пример 12. Создать программу, создающую два двумерных массива: один массив вводом числовых элементов в соответствующие текстовые поля формы, второй – вводом четырех произвольных фамилий в соответствующие текстовые поля формы (рис. 25, 26). В результате все элементы первого массива увеличиваются на 10 и выводятся в соответствующую метку на форме. Элементы же второго строкового массива организуют вывод предложений типа: работник фамилия Иванов, где Иванов (например) берется из строкового массива, введенного в соответствующие текстовые поля. Данные результаты получаются после нажатия на кнопку Вывод пользовательского диалогового окна.

Рис. 25. Форма примера 12 в режиме конструктора

Рис. 26. Форма примера 12 в рабочем режиме

Листинг примера 12

Private Sub CommandButton1_Click()

Dim B(1 To 2, 1 To 2) As String

Dim c(1 To 2, 1 To 2) As String

Dim A(1 To 2, 1 To 2) As String

Dim d(1 To 2, 1 To 2) As Integer

Dim k(1 To 2, 1 To 2) As Integer

B(1, 1) = TextBox5.Text

B(1, 2) = TextBox6.Text

B(2, 1) = TextBox7.Text

B(2, 2) = TextBox8.Text

d(1, 1) = Val(TextBox1.Text)

d(1, 2) = Val(TextBox2.Text)

d(2, 1) = Val(TextBox3.Text)

d(2, 2) = Val(TextBox4.Text)

For i = 1 To 2

For j = 1 To 2

k(i, j) = d(i, j) + 10

Next j

Next i

For i = 1 To 2

For j = 1 To 2

c(i, j) = «фамилия» + B(i, j)

Next j

Next i

For i = 1 To 2

For j = 1 To 2

A(i, j) = «работник» + c(i, j)

Next j

Next i

Label3.Caption = «a(1,1)=» & A(1, 1) & « a(1,2)=» & A(1, 2) & « a(2,1)=» & A(2, 1) & « a(2,2)=» & A(2, 2)

Label6.Caption = «k(1,1)=» & k(1, 1) & « k(1,2)=» & k(1, 2) & « k(2,1)=» & k(2, 1) & « k(2,2)=» & k(2, 2)

End Sub

3.2. Работа с различными типами данных

Тип, определяемый пользователем

VBA позволяет пользователю определять свои собственные типы данных. Определенный пользователем тип нужен, когда одной переменной необходимо обозначить несколько связанных по смыслу элементов данных, причем эти элементы данных могут быть разных типов. Пример структурного типа приведен на рис. 27. Тип Book состоит из трех элементов: Title (название книги) имеет тип String, Content – динамический массив строкового типа, содержащий название глав книги, Author (автор книги), который, в свою очередь, тоже является структурным типом, состоящим из двух простых элементов – Name (имя) и Birthday (день рождения).

Рис. 27. Пример структурного типа, определяемый пользователем

Для объявления такого типа данных используется оператор Туре:

Туре <имяТипа>

…<имяЭлемента1> [([<размер1>])] As <типДанных1>

…<имяЭлемента2> [([<размер2>])] As <типДанных2>

End Туре

Элементами типа могут быть простые переменные и массивы встроенных типов, а также переменные и массивы других определенных пользователем типов. Типы Book и Person (см. рис. 27) могут быть объявлены следующим образом:

Type Person

Name As String

Birthday As Date

End Type

Type Book

author As Person

Title As String

Content () as String

End Type

Объявление переменных структурного типа выполняется так же, как и обычных переменных:

Dim MyBook As Book, Editor As Person

Обращение к элементу структурного типа выполняется следующим образом:

MyBook.Title = «Учебник»

ReDim MyBook.Content (0 to 10)

MyBook.Content(0) = «От автора»

Перечисляемый тип

Еще одним видом структурного типа данных является перечисляемый тип. Элементами перечисляемого типа являются все его значения. Определяется перечисляемый тип с помощью оператора Enum:

Enum <имяТипа> <имяЗначения1> [=<Константа>] <имяЗначения2>

[=<Константа>]

End Enum

По умолчанию все значения типа перенумеровываются целыми числами, начиная с 0, но можно самостоятельно указать константное целое значение для значений типа.

Примером перечисляемого типа данных является встроенный логический тип Boolean.

Enum Boolean False

True End Enum

Над каждым типом данных определено некоторое множество простейших действий, называемых операциями. Язык VBA имеет большое количество встроенных функций для работы с каждым типом данных.

Приведение и преобразование типов

Приведением называется автоматическое преобразование значения одного типа данных в эквивалентное значение другого типа в процессе выполнения операций с данными. Приведение выполняется, если операнды (данные, участвующие в операции) имеют разные типы. При этом результат операции будет иметь тот тип, к которому приводится один из операндов. Например, складываются два числа – целое (Integer) и вещественное (Double). В процессе этой операции целое число приводится к вещественному (Double), и результат будет иметь тип Double. Обратное преобразование (Double в Integer) может привести к потере данных. На рис. 28 приведена схема, показывающая, значения каких типов к каким типам приводятся без потери информации.

Рис. 28. Схема преобразования данных без потерь

VBA имеет также набор функций, которые можно использовать для явного преобразования типов данных в операциях. Эти функции приведены в табл. 11.

Таблица 11

Функции преобразования типовОперации со строками

Для данных типа String существует только одна операция – конкатенация (объединение). Например, результатом операции конкатенации трех строковых значений «Петр» & " " & «Иванович» будет строка «Петр Иванович». Возможно также использование другого оператора для операции конкатенации, например: «десяти» + «тысячник». Разница между этими выражениями состоит в том, что в первом случае операндами могут быть значения любого типа (они просто будут преобразовываться в строковые), а во втором – оба операнда должны иметь тип String.

Для работы со строками существует большое количество функций (табл. 12).

Таблица 12

Функции работы со строками

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

Для сравнения строковых значений также применяется оператор Like, который позволяет обнаруживать неточное совпадение, например выражение «Входной сигнал» Like «Вход*» будет иметь значение True, так как сравниваемая строка начинается со слова «Вход». Символ звездочка (*) в строке заменяет произвольное число символов. Другие символы, которые обрабатываются оператором Like в сравниваемой строке:

• ? – любой символ (один);

• #– одна цифра (0–9);

• [<список>] – символ, совпадающий с одним из символов списка;

• [!<список>] – символ, не совпадающий ни с одним из символов списка.

Следующие три функции позволяют работать с массивом строк.

Split (<строка> [,<разделитель>]) – преобразует строку в массив подстрок. По умолчанию в качестве разделителя используется пробел. Данную функцию удобно использовать для разбиения предложения на слова. Однако можно указать в этой функции любой другой разделитель.

Например, Split(3, «Этo тестовое предложение») возвращает массив из трех строковых значений: «Это», «тестовое», «предложение».

Join (<массивСтрок> [,<разделитель>]) – преобразует массив строк в одну строку с указанным разделителем.

Filter(<массивСтрок>,<строкаПоиск>[,<включение>] [,<сравнение>]) – просматривает массив строковых значений и ищет в нем все подстроки, совпадающие с заданной строкой.

Эта функция имеет четыре аргумента:

<строкаПоиск> – искомая строка;

<включение> – параметр (булевское значение), который указывает, будут ли возвращаемые строки включать искомую подстроку или, наоборот, возвращаться будут только те строки массива, которые не содержат искомой строки в качестве подстроки;