VII. Библиографический список

 

1. Нортон П. и др. Microsoft Office 2000. – Киев: DiaSoft, 1999. –556 с.

2. Витенко О.И., Яковлев В.А. Visual Basic в бюро. – Киев: BHV, 1997. – 226 с.

3. Visual Basic 5. Шаг за шагом: Практическое пособие / Пер. с англ. – М.: ЭКОМ, 1998. – 432 с.

4. Штайнер Т. Microsoft Excel 2000: Справочник. – М.: Лаборатория Базовых Знаний, 2000. – 480 с.

5. Штайнер Т. Microsoft Office 2000: Справочник. – М.: Лаборатория Базовых Знаний, 2000. – 576 с.

 

Приложение 1

 

Примеры некоторых типовых программных решений

 

Пример использования инструкции Do…Loop

 

В данном примере показано, как можно использовать инструкции Do...Loop. Внутренний цикл Do...Loop выполняется 10 раз, затем логической переменной присваивается значение False, после чего он преждевременно завершается с помощью инструкции Exit Do. Внешний цикл завершается немедленно после проверки значения логической переменной.

 

Dim Check, Counter

Check = True: Counter = 0     ' Инициализирует переменные.

Do ' Внешний цикл.

Do While Counter < 20     ' Внутренний цикл.

             Counter = Counter + 1      ' Увеличивает счетчик.

             If Counter = 10 Then ' Если условие истинно.

                         Check = False ' Присваивает переменной

                                     ' значение False.

                         Exit Do       ' Завершает внутренний цикл.

             End If

Loop

Loop Until Check = False ' Немедленно завершает внешний цикл.

Пример использования инструкции For…Next

 

В рассматриваемом примере инструкция For...Next используется для создания строки, содержащей 10 наборов по 10 цифр (от 0 до 9); каждый набор отделяется от следующего одним пробелом. Внешний цикл использует переменную-счетчик, которая уменьшается на единицу при каждом выполнении цикла.

 

Dim Words, Chars, MyString

For Words = 10 To 1 Step -1 ' Цикл выполняется 10 раз.

For Chars = 0 To 9 ' Цикл выполняется 10 раз

             MyString = MyString & Chars     ' Добавляет цифру в конец строки.

Next Chars ' Увеличивает счетчик

MyString = MyString & " " ' Добавляет пробел.

Next Words

Пример использования инстркуции If…Then…Else

 

В данном примере показано использование как блоковой, так и однострочной форм инструкции If...Then...Else, а также проиллюстрировано использование инструкции If TypeOf...Then...Else.

 

Dim Number, Digits, MyString

Number = 53    ' Инициализирует переменную.

If Number < 10 Then

Digits = 1

ElseIf Number < 100 Then

' Условие является истинным, поэтому выполняется следующая инструкция.

Digits = 2

Else

Digits = 3

End If

 Использует однострочную форму для присвоения значения.

If Digits = 1 Then MyString = "Один" Else MyString = "Больше 1".

Использует конструкцию If TypeOf для определения, является ли элемент управления, переданный процедуре, текстовым полем.

Sub ControlProcessor(MyControl As Control)

If TypeOf MyControl Is CommandButton Then

             Debug.Print " Передан " & TypeName(MyControl)

ElseIf TypeOf MyControl Is CheckBox Then

             Debug.Print " Передан " & TypeName(MyControl)

ElseIf TypeOf MyControl Is TextBox Then

             Debug.Print " Передан " & TypeName(MyControl)

End If

End Sub

Пример использования инструкции Public

 

В данном примере инструкция Public используется на уровне модуля в общем разделе стандартного модуля для явного объявления переменных общими. Общие переменные доступны всем процедурам во всех модулях во всех приложениях (если инструкция Option Private Module отключена).

Public Number As Integer       ' Общая переменная типа Integer.

Public NameArray(1 To 5) As String ' Общая переменная - массив.

' Несколько объявлений (Variant, Variant и Integer), все общие.

Public MyVar, YourVar, ThisVar As Integer

Примеры использования некоторых функций для обработки строковых данных

 

В данном примере функция Left используется для извлечения указанного числа первых символов строки.

Dim AnyString, MyStr

AnyString = "Всем привет"   ' Задает строку.

MyStr = Left(AnyString, 1)    ' Возвращает " В ".

MyStr = Left(AnyString, 6)    ' Возвращает " Всем п ".

MyStr = Left(AnyString, 20)  ' Возвращает " Всем привет ".

В данном примере функция Len используется для определения числа символов в строке или числа байт, необходимого для размещения переменной. Если блок Type...End Type, описывающий тип CustomerRecord, помещен в модуль класса, то перед ним необходимо добавить ключевое слово Private. В стандартном модуле инструкция Type может быть общей (Public).