Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
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).
|
|||||
Последнее изменение этой страницы: 2021-06-14; просмотров: 43; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 18.224.73.125 (0.007 с.) |