Фризен Ирина Григорьевна - Офисное программирование стр 12.

Рис. 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. Работа с различными типами данных

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

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

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

Туре

[([])] As

[([])] As

End Туре

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 [=]

[=]

End Enum

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

Enum Boolean False

True End Enum

тип Double. Обратное преобразование (Double в Integer) может привести к потере данных. На рис. 28 приведена схема, показывающая, значения каких типов к каким типам приводятся без потери информации.

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

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

Таблица 11

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

Таблица 12

их двоичные коды.

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

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

# одна цифра (09);

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

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

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

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

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

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

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

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

искомая строка;

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

параметр, определяющий метод сравнения строк.

Еще три функции обеспечивают преобразование строк:

LCase() преобразует все символы строки к нижнему регистру, например функция LCase(«ПОЧTA») возвращает строку «почта»;

UCase() преобразует все символы строки к верхнему регистру;

StrConv(,) выполняет несколько типов преобразований строки в зависимости от второго параметра. Этот параметр описывается встроенными константами, например функция StrConv(«poccия»,VbProperCase) возвращает значение «Россия».

И последние две функции генерируют строки символов:

Space() создает строку, состоящую из указанного числа пробелов;

String(,) создает строку, состоящую из указанного в первом аргументе числа символов. Сам символ указывается во втором аргументе.

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