Logo GenDocs.ru

Поиск по сайту:  

Загрузка...

Лекции по VBA (Visual Basic For Application) - файл VBA1.DOC


Лекции по VBA (Visual Basic For Application)
скачать (38.5 kb.)

Доступные файлы (2):

VBA1.DOC184kb.08.04.2005 01:19скачать
VBA2.DOC62kb.17.03.2005 15:54скачать

содержание
Загрузка...

VBA1.DOC

Реклама MarketGid:
Загрузка...
Лекция1.Основы программирования на VBA

Visual Basic For Application (VBAVBA– Visual Basic для приложений) реализован в четырех важнейших компонентах пакета Microsoft Office 97/2000. VBA представляет собой полностью унифицированный язык программирования и почти полностью унифицированную среду разработки.

VBA включает в себя основные конструкции языка Visual Basic для Windows, встроен в MS Office и приложения Office. VВА является общим для всех приложений MS Office. В VBA применяется объектно - ориентированный подход к разработке приложений. Каждое приложение – Word, Excel, Access, PowerPoint и др.- дополняет средства VBA новыми функциональными возможностями с помощью объектов, свойств и методов, присущих этому приложению. Как объектно – ориентированный язык программирования VBA использует следующие основные понятия: объект, свойство, метод, событие, класс и семейство объектов. Введем определения.

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

Свойства – это параметры объекта, которые ему присущи. Они характеризуют объект. Все свойства объекта имеют свои имена. Различные объекты характеризуются различными свойствами, например, объект «линия» характеризуется длиной и цветом, а объект «окружность» радиусом и цветом. Синтаксис задания свойства объекту имеет вид

ОБЪЕКТ. СВОЙСТВО = ЗначениеСвойства.

Например,

……………………………………….

‘изменить имя текущего листа

ActiveSheets . Name = “Январь”

………………………………………..

Метод – это программа, которая воздействует на объекты и их параметры. С помощью методов можно, например, закрыть объект, удалить его, или показать на экране. Синтаксис записи такой:

ОБЪЕКТ.МЕТОД


Например,

………………………………………

‘удалить лист

WorkSheets(“Обзор”) . Delete

………………………………………
Событие – это действие, распознаваемое объектом, для которого можно запрограммировать отклик (например, щелчок мышью по строке меню или нажатие клавиши). При наступлении события происходит активизация метода, т.е. начинают выполняться связанные с объектом программы и функции.

Класс – это шаблон, на основе которого во время выполнения программы создается объект. Класс определяет свойства и методы объекта. Если взять пример из жизни, то в качестве класса объектов можно принять школьный класс, где объекты – это учащиеся, каждый со своими , присущими только ему свойствами. Также каждому объекту в классе присущи одно или несколько одинаковых свойств, например – возраст, по которому и определяется принадлежность объекта к классу. Объект, который создается на основе класса, называют экземпляром класса.

Итак, все приложения Microsoft Office имеют макроязык и средство записи макросов. Все макрокоманды VBA включаются в проекты, которые могут принадлежать различным документам. При создании проекта используется один из трех методов:

  • запись макроса при помощи макрорекодера, с последующим его редак- тированием,

  • создание макроса в редакторе VВА,

  • создание проекта в редакторе VВА.



Код VВА

Код VВА хранится в проектах. Проекты содержат модули, а модули включают процедуры и функции. Процедуры и функции содержат описания и инструкции на языке VBA.

Каждое приложение MS Office хранит проекты по своему:

  • Word сохраняет проекты в шаблонах документа (DOT) и в документах (DOC).

  • Excel сохраняет проекты в рабочих книгах (XLS).

  • Access сохраняет проекты в файлах базы данных (MDB).

  • PowerPoint сохраняет проекты в презентациях (PPT).

Для программирования на VBA нет необходимости в обязательном порядке устанавливать какую-либо версию транслятора VB (Visual Basic). Вполне достаточно, если на компьютере будет установлен Microsoft Office 97 и выше. Для создания программы, которая называется макросом, необходимо загрузить Microsoft Word или Microsoft Excel. Далее: -Сервис-Макрос-Редактор Visual Basic. В окне проекта первой строкой записывается оператор объявления процедуры (программы )

Sub имя()

Это стандартный заголовок макроса. Завершающей строкой процедуры является строка

End Sub

Для запуска программы из редактора - клавиша F5. Для запуска программы из документа — alt+F8.

Элементы языка VBA


При написании кода VВА следует знать некоторые правила или соглашения, которых следует придерживаться, чтобы избежать ошибок выполнения кода. Первое соглашение — это соглашение по именам. Именовать нам придется переменные, константы, процедуры, функции, объекты и т.д., поэтому определим правила, которым будем следовать:

  • Длина имен не должна превышать 255 символов.

  • Имена должны начинаться с буквы и могут содержать комбинацию букв, цифр и символов.

  • Имена не должны совпадать со стандартными именами Visual Basic.

  • Имена не должны включать точек, пробелов и следующих символов:! @ # $ %. Символ пробела можно заменить символом подчеркивания _.

Регистр букв в именах не имеет значения, т.е. следующие имена РRIСЕ, Рriсе и price — эквивалентны.
Примеры правильной записи имен:

Н123, Price, Sale

Неправильно записанные имена:

21days начинается с цифры;

Price Sale содержит символ пробела;

Dim совпадает со служебным словом языка.

Дадим также несколько определений элементам VBA.

^ Ключевые слова — это слово или символ, которые являются элементом языка программирования Visual Basic, это может быть инструкция, имя функции, оператор. Например: SUB, DIM, CONST.

Выражение — это комбинация ключевых слов, операций, констант. Резуль- татом выражения может быть строка, логическое значение или число. Примеры выражений: Х+3; Z<>0; 11.

Операторы используются для объединения простых выражений в более слож- ные. Операторы VBA выполняют арифметические, логические операции, а также операции сравнения и конкатенации (сцепления строк).

Лекция 2.Типы данных языка VBA
Visual Basic имеет 11 встроенных типов данных:

Тип данных

Размер в байтах

Разрядность цифр




Диапазон значений

Boolean

2

1

логический

True или False (да - нет, включен - отключен)

Integer

2

5

целое

От (-32768) до 32768

Long

4

10

длинное целое

От (-2147483648) до 2147483647

Single

4

7

действительное одинарной точности

От (–3.402823Е+38) до (–1.401298Е-45) и от 1.401298Е-45 до 3.402823Е+38

Double

8

15

действительное двойной точности

От ± 1.79769313486232Е+308 до ± 4.94065645841247Е-324

Currency

8

19

денежный

От (–922337203685477.5808) до 922337203685477.5807

Date

8

-

для дат и времени

От 01.01.100 до 31.12.9999

String

1

+1

символьный

на любой символ - От 0 до 65535 символов

Object

4

-




Любой объект

Array

Определяется количеством и размером элементов

-

массивы

-

Variant

Определяется записанными данными

-




Любой из встроенных типов данных

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

Boolean использует для хранения значения 2 байта памяти – как и тип Integer, хотя может принимать значения либо 0 (ложь - False), либо (True – правда). Для хранения этой информации достаточно 1 бита, а занимается 16 бит.

Integer предназначен для хранения смещенного целого числа, т.е. с указанием знака числа “+” или “-”. Из 16 бит 1 используется для хранения знака, а остальные – для значащих цифр.

Long используется для хранения смещенного целого числа с двойным разрешением по сравнению с Integer и, соответственно, занимает в два раза больше памяти. Из 32, занимаемых в памяти бит, 1 предназначается для хранения знака, 31 – для хранения самого числа.

^ Double – предназначен для хранения действительного числа с плавающей точкой двойной точности по отношению к Single. Для хранения требует вдвое больше памяти, но и диапазон значений расширяется в 8 раз.

Currency предназначен для хранения действительного числа с фиксированной точкой, которая всегда располагается между 4 и 5 цифрами справа.

ПРИМЕР: 0.0021 46.7280 Этот тип специально предназначен для получения минимальных ошибок округления и чаще всего используется в бухгалтерских расчетах.

Date предназначен для хранения дат и времени с точностью до секунды.

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

Пример: 05.03.1994 18.00 запишется как 34398.75. При работе с Excel следует помнить, что в нем диапазон используемых дат – от 01.01.1900 до 31.12.2078. Сам VBA позволяет оперировать датами в диапазоне 01.01.100 – 31.12.9999

String используется для хранения текста по одному байту на символ, добавляя к этому количеству еще один – для обозначения конца строки.

Object предназначен для ссылок на любой объект VBA

^ Array определяет индексный список величин одного и других типов - массив.

Variant используется по умолчанию. Он задается VBA, если вы сами не укажете этот тип. При этом производится проверка значения, вводимого в память и его идентификация, поэтому резко возрастает и время выполнения программы, и объем памяти.

Переменные

Переменная — это область памяти, предназначенная для временного хранения данных, и которой присвоено имя. Содержимое переменной может быть изменено в процессе выполнения программы. Данные, хранимые в переменных, могут быть различного типа: числовые данные, строковые, логические и т.д. Тип данных определяет тип переменной.

^ Область определения переменной определяет, где можно использовать переменную. В VВА есть три уровня определения переменных.

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

Например:

Dim x As Single ‘переменная x описана как действительная одинарной точности

Dim I As Integer ‘переменная I описан как целая

^ Уровень модуля. Переменные используются только в процедурах модуля, в которых они описаны, но не в других модулях проекта. Переменная описывается с помощью инструкции DIM, размещенной в разделе описаний модуля.

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

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

Если переменная не описана, то ей присваивается тип Variant при вводе имени переменной.

Константы

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

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

Примеры описания констант:

Const Pi as Double = 3.1415926 ‘описана константа Pi

Const Name = "Visual Basic" ‘описана константа строкового типа.

Операции

Операции производятся над выражениями, переменными, константами, литералами.

Арифметические операции

В качестве арифметических операций в языке Visual Basic применяются операции, описанные в таблице в порядке убывания приоритета.

Математические и строковые операции VBA в порядке убывания приоритета Операция

Выполняемое действие

^

Возведение в степень

-

Отрицание

?

Умножение

/

Деление 1

\

Целочисленное деление

Mod

Определение остатка от деления

+

Сложение

-

Вычитание

&

Объединение (конкатенация) строк

Правила записи арифметических выражений в языке Бейсик.

а) Все арифметические операции записываются в одну строку. Если в числителе или знаменателе дроби стоит многочлен, его следует заключить в скобки.

b) При записи десятичных дробей для отделения целой части от дробной используется десятичная точка.

с) Знаки арифметических операций опускать нельзя.

d) Если в десятичной дроби нет целой части, то ноль перед десятичной точкой можно опустить.

Арифметические операции выполняются слева направо в порядке приоритета. Для изменения естественного приоритета операций применяются скобки (так же, как в арифметике). В Бейсике существуют стандартные функции, при применении которых не требуется никаких дополнительных библиотек или определений.

Логические операции

Логические выражения в математической логике оперируют с логическими переменными. Логические переменные имеют в современных языках программирования тип Boolean, что означает - булева(я) или логическая. Логическая переменная в процессе выполнения программы может принимать только два значения — "True" или "False". Определить логическую переменную можно, присвоив ей значение логического выражения.

^ Логическое выражение — выражение, в котором присутствуют операции отношения или знаки логических операций.

Операции отношения:

= (равно)

<> (не равно)

< (меньше)

> (больше)

<= (меньше или равно)

>= (больше или равно)

Например: а>b и b< =а+2 .

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

OR - Логическое сложение (ИЛИ),

AND - Логическое умножение (И),

NOT - Логическое отрицание (НЕ),

XOR - Исключающее ИЛИ,

EQV - Логическая эквивалентность,

IMP - Логическая импликация .

Операция конкатенации

Операция используется для сцепления двух или нескольких строк, обозначается знаком «+». Результатом будет строка, состоящая из строк – операндов.

Например,

операнд1=”язык”

операнд2=”Visual Basic”

результатом операции

“язык” + “Visual Basic”

будет строка

“язык Visual Basic”.

Математические функции VBA

Функция

Выполняемое действие

Atn(x)

Возвращение арктангенса угла в радианах arctg x

Sin(x)

Возвращение синуса угла в радианах sin x

Cos(x)

Возвращение косинуса угла в радианах cos x

Tan(x)

Возвращение тангенса угла в радианах tg x

Exp(x)

Возвращение значения ex, где x - значение переменной или введенное число

Log(x)

Возвращение натурального логарифма числа ln x

Sqr(x)

Возвращение квадратного корень числа

Abs(x)

Возвращение абсолютного значения числа (по модулю)|x|


Функции преобразования типов Str() и Val()

Str(число)

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

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

Примечание.

В качестве допустимого десятичного разделителя функция Str воспринимает только точку (.). При наличии другого десятичного разделителя (например, запятой) для преобразования чисел в строки следует использовать функцию CStr.

Val(crpoкa)

Возвращает числа, содержащиеся в строке, как числовое значение соответствующего типа.

Обязательный аргумент строка является любым допустимым строковым выражением. Функция Vа1 прекращает чтение строки на первом символе, который она не может распознать в качестве части числа. В качестве разделителя целой и дробной части распознается только точка (.). Пробелы, символы табуляции и символы перевода строк удаляются из значения аргумента.

В следующем примере возвращается числовое значение 1615198:

Vаl(" 1615 198-я ул. Н.Й.")
Организация ввода/вывода информации

Диалоговые функции ввода/вывода информации

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

Функция InputBox

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

InputBox (сообщение [, заголовок] [, текст по умолчанию] )

сообщение — текст в диалоговом окне.

заголовок — строковое выражение, отображаемое в строке заголовка диалого- вого окна. Если этот аргумент опущен, в строку заголовка помещается имя приложения.

текст по умолчанию — строковое выражение, отображаемое в поле ввода, если пользователь не введет другую строку. Если этот аргумент опущен, поле ввода изображается пустым.

Если пользователь нажимает кнопку ОК или клавишу ENTER, функция InputBox возвращает содержимое поля ввода.

Пример. Ввести значение X=0.5.

………………………………….

X=Val(InputBox(“Введите X”))

…………………………………..

В диалоговом окне ввести с клавиатуры 0.5.

Функция MsgBox

Функция MsgBox позволяет выводить результаты счета программы в диалоговом окне.

Синтаксис :

MsgBox (сообщение [, кнопки] [, заголовок] )

сообщение — строковое выражение, отображаемое в диалоговом окне.

кнопки — числовое выражение, представляющее сумму значений, которые указывают число и тип отображаемых кнопок, тип используемого значка, основную кнопку. Значение по умолчанию этого аргумента равняется 0.

заголовок — строковое выражение, отображаемое в строке заголовка диалого- вого окна. Если этот аргумент опущен, в строку заголовка помещается имя приложения.

Будем использовать в качестве аргумента функции только сообщение, представляющее собой конкотенацию (сцепление)(+) двух строк: комментария к результату, взятого в кавычки, и строки, полученной из числового выражения с помощью функции Str.

Пример. Вывести результат на экран монитора.

…………………………………………

MsgBox(“Ответ=” + Str(y))

…………………………………………

Использование окна отладки

Окно отладки можно вывести на экран при помощи команды ^ Вид - Окно отладки или нажав клавиши <Ctrl>+<G> .

Для вывода текущих значений в окно Проверка непосредственно из макроса необходимо ввести в нужном месте кода макроса команду Debug с единственным методом Print. Синтаксис

Debug.Print выражение.

В месте, где установлена эта команда, произойдет прерывание выполнения макроса и в окне Проверка появится текущее значение переменной или выражения.

Пример.

…………………….

Debug.Print y

……………………

Использование объектов Excel

Объект WorkSheet – это лист рабочей книги. Он входит в коллекцию всех листов рабочей книги - семейство Sheets.Этот объект можно использовать для ввода/вывода данных. В этом случае к этому объекту можно применить метод Select, позволяющий выбирать конкретный лист. Например,

Sheets (“Лист1”) . Select

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

Поскольку одиночная ячейка не представлена собственным объектом, то доступ к ячейке можно осуществить с помощью свойства Cells , указывая номер строки и столбца. Для присвоения некоторой переменной x значения, находящегося в ячейке A2 используем оператор:

X=Cells(2,1)

Пример.

Вывести значения переменных s и p во вторую и третью строки второй колонки (столбец В) третьего листа соответственно.

…………………………………………………………………….

Sheets(“Лист3”).Select ‘переходим на третий лист

Cells(2,8)=s ‘выводим s

Cells(3,8)=p ‘выводим p

…………………………………………………………………….
Часто используется свойство Value, возвращающее содержимое ячейки. Например,

Cells(2,8).Value=s ‘выводим s

Операторы языка VBA и реализация основных алгоритмических конструкций

В языке VВА используется множество инструкций или операторов. Они служат для выполнения каких-либо стандартных действий. Условно из них можно выделить группы.

Оператор комментариев не выполняет в программе никаких действий и может содержать любой текст. Инструкция комментариев имеет два вида: это инструкция, начинающаяся с ключевого слова REM, за которым следует произвольный текст, или знак апострофа ('), который ставится в начале строки или после любого оператора, и за ним также можно писать любой текст.

Например:

REM произвольный текст комментария

' произвольный текст комментария

Al=5 ' комментарий к строке оператора

Оператор присваивания

Присваивает выражение переменной или константе. Инструкции присвоения всегда включают знак равенства (=).
^

ПЕРЕМЕННАЯ = ВЫРАЖЕНИЕ


Вначале вычисляется выражение, а затем результат запоминается в переменной.

Выделяют следующие алгоритмические структуры:

  1. линейная, когда все действия выполняются последовательно (без условий) от начала до конца;

  2. разветвленная, когда на некотором шаге встречается условие, в зависимости от которого процесс решения может пойти по одной из нескольких ветвей;

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

ГОСТом установлены следующие геометрические фигуры для обозначения действий:
^ Программирование алгоритмов линейной структуры

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

При составлении линейных программ необходимо:

  • выделить начальные данные;

  • установить последовательность вычислений;

  • определить исходные данные до момента их использования;

  • желательно снабжать программу комментариями для удобства ее чтения.

Пример. Вычислить значение выражения для любых a и b.

Программа

Sub Lin()

Dim a As Double, x As Double

a = Val(InputBox("Введите а")) 'ввод значения переменной a

x = Val(InputBox("Введите x")) 'ввод значения переменной x

b = 1 / (x) ^ (1 / 4) 'вычисляем значение b'

c = Sin(a ^ 2 + b ^ 2) 'вычисляем значение C

MsgBox ("Ответ=" + Str(c))

End Sub

Пример. Составить программу для вычисления площади S треугольника ABC по заданным значениям сторон a,b,c.

Программа

Sub Geron()

Dim a, b, c, p, s As Double

a = Val(InputBox("Введите a")) 'ввод значения переменной a

b = Val(InputBox("Введите b")) 'ввод значения переменной b

c = Val(InputBox("Введите c")) 'ввод значения переменной c

'P - полупериметр,S - площадь

p = (a + b + c)

s = Sqr(p * (p - a) * (p - b) * (p - c))

Cells(1, 1) = "Площадь="

Cells(1, 2) = s

End Sub

Операторы управления порядком выполнения команд

Обычно выполнение макроса начинается с выполнения инструкций SUB или FUNCTION и продолжается в порядке следования строк с операторами до тех пор, пока не встретится инструкция END SUB или END FUNCTION.

Но часто, при проектировании макросов, необходимо выполнять различные варианты программы, в зависимости от значения каких-либо переменных или параметров (условий), задаваемых пользователем во время выполнения программы. На этот случай в VВА предусмотрен ряд операторов, предназначенных для изменения порядка выполнения операторов в программе.

^ Оператор безусловного перехода GoТо

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

Синтаксис инструкции GoTo:

Gото строка

Обязательный аргумент строка может быть любой меткой строки или номером строки.

Метка строки — это строка программы, в начале которой указывается имя метки и двоеточие (:). Метки должны иметь уникальные имена в пределах одной процедуры.

Примечание.

Слишком большое число инструкций GoTo затрудняет чтение и отладку программ. По воэможности следует использовать структурные управляющие инструкции (Do...Loop, For...Next, If...Then...Else, Select Case). Инструкция GoTo в VBA применяется, главным образом, для обработки ошибок.

Оператор If... Then... Else

Условный оператор If... Then...Else выполняет определённые инструкции или наборы инструкций в зависимости от значения заданных условий.

Синтаксис, т.е. правила записи строчной инструкции If...then...else следующий:

If условие Then [оператор1] [Else оператор2] .

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

Обязательный параметр условие — представляет собой логическое выражение, которое возвращает значение (истина) TRUE или (ложь) FALSE. Если условие равно TRUE, то выполняется оператор1, если условие равно FALSE, то выполняется оператор2. Далее выполняется, если иное не предусмотрено программой в операторах1 или 2, инструкция, следующая по порядку за строкой с инструкцией If... Then...Else.

Часть оператора If, а именно ключевое слово Else и следующие за ним инструкции можно опустить, тогда при условии равном FALSE выполняется оператор, следующий за строкой с инструкцией If. Т.е. инструкция If выглядит так:

If условие Then [оператор]

Примечание.

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

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


If условие Then

[Блок операторов]

[Else

[^ Блок операторов]]

End If

Блочная структура If удобнее, так как каждый блок операторов может включать в себя произвольное число утверждений. Кроме того, допускается вложение структур If.

Оператор Select Саsе

Это оператор выбора из многих возможных вариантов. Оператор Select Case выполняет одну из нескольких групп операторов в зависимости от значения выражения. В языках высокого уровня такой оператор называется переключателем.

Синтаксис инструкции

Select Саsе выражение

[Case список условий-1

[операторы-1]]

[Саsе список условий-2

[операторы-2]]



[Саsе список условий-n

[операторы-n]]

[Case Else

[операторы_ else]]

End Select

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

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

  1. Саsе КОНСТАНТА1, КОНСТАНТА2, KOHCTAHTA3, ...

  2. Саsе Is ЗНАК_ ОТНОШЕНИЯ КОНСТАНТА

  3. Case КОНСТАНТА1 to КОНСТАНТА2

Выполняется оператор Select Case следующим образом — сначала вычисляется значение выражения, стоящего после ключевых слов Select Case, затем производится проверка на совпадение значения выражения и одного из Case условий, в случае совпадения выполняютсяоператоры, помещенные за этим Case условием. В случае, если совпадения не обнаружено ни в одном из Case условий, то выполняются операторы, находящиеся после ключевых слов Саsе Else. Если список выражений в Саsе условии записан в первой форме, то необходимо, чтобы результат вычислений выражения равнялся одной константе из списка, если Case условие записано во второй форме, то необходимо, чтобы выполнялось условие отношения между значением выражения и константой. Если же в третьей форме, то необходимо выполнение соотношения

КОНСТАНТА1<=выражение<=КОНСТАНТА2.

^ Программирование алгоритмов разветвляющейся структуры

Алгоритм разветвляющейся структуры – это алгоритм такого процесса, в котором его реализация осуществляется по одному из заранее предусмотренных (возможных) направлений в зависимости от исходных условий или промежуточных результатов. Каждое отдельное направление обработки информации в таком процессе называется ветвью. Выбор ветви определяется проверкой выполнения логического условия, определяющего свойства исходных данных или промежуточных результатов. В каждом конкретном случае процесс обработки данных выполняется лишь по одной из ветвей. Для их реализации используются операторы управления порядком выполнения команд, рассмотренные выше.

Пример. Дано действительное число x. Вычислить y.

Программа.

Sub Raz2()

Dim x, y As Double

x = Val(InputBox("Введите x")) 'ввод значения переменной x

If x > 0 Then y = Sin(x) Else y = 2 * x

MsgBox ("Значение y=" + Str(y#))

End Sub

Пример. Дано действительное число x. Вычислить y.
Программа

Sub Raz3()

Dim x, y As Double

x = Val(InputBox("Введите x"))

If x < 0.1 Then y = Cos(x ^ 2) Else If x > 0.1 Then y = Exp(x) Else y = x ^ 3 - 2

MsgBox ("Значение y=" + Str(y#))

End Sub

Пример. Даны три числа. Выяснить, существует ли треугольник с такими сторонами.

Программа

Sub Treug()

Dim a, b, c As Double

a = Val(InputBox("Введите сторону a"))

b = Val(InputBox("Введите сторону b"))

c = Val(InputBox("Введите сторону c"))

If (a + b) > c And (b + c) > a And (a + c) > b Then MsgBox ("Треугольник существует") Else MsgBox ("Треугольник не существует") ‘оператор печатать в одной строке

End Sub

Пример. Дано действительное число x. Вычислить z,y,h, если известно, что

Программа

Sub Raz3()

Dim x, z, y, h As Double

x = Val(InputBox("Введите x"))

If x > 0.8 Then

z = 2 * Sin(x)

y = Log(x) + 4 * x

h = Cos(x)

Else

If x = 0.8 Then

z = Sqr(Sin(x))

y = Cos(x ^ 2) + x

h = 2 * x

Else

z = Abs(x - 2)

y = 2 + x ^ 2 * Sin(x)

h = 0

End If

End If

Cells(1, 1) = "x=": Cells(1, 2) = x

Cells(2, 1) = "z=": Cells(2, 2) = z

Cells(3, 1) = "y=": Cells(3, 2) = y

Cells(4, 1) = "h=": Cells(4, 2) = h

End Sub
^ Программирование алгоритмов циклической структуры

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

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

^ Операторы цикла

Оператор цикла While... Wend

Оператор имеет синтаксис

While условие

[операторы]

Wend

Синтаксис инструкции While... Wend содержит следующие элементы:

условие — обязательный элемент. Числовое выражение или строковое выражение, которое имеет значение True или False.

операторы— необязательный элемент. Один или несколько операторов, выполняемых, пока условие имеет значение True.

Этот оператор называют оператором цикла с предусловием. Выполняется оператор While... Wend следующим образом. Если условие имеет значение True, выполняются все операторы до инструкции Wend. Затем управление возвращается инструкции While и вновь проверяется условие. Если условие по-прежнему имеет значение True, процесс повторяется. Если оно не имеет значение True, выполнение возобновляется с инструкции, следующей за инструкцией Wend. В связи с этим элемент условие здесь является условием выполнения цикла. Циклы While... Wend могут иметь любую глубину вложенности.

^ Оператор цикла Do...Loop

Оператор Do...Loop также используется для выполнения наборов операторов неопределенное число раз. Оператор имеет синтаксис:

Do

[операторы]

Loop Until [условие]

Синтаксис инструкции Do Loop содержит следующие элементы:

условие — необязательный элемент. Числовое или строковое выражение, которое имеет значение True или False.

операторы— один или несколько операторов, выполнение которых повто- ряется, пока условие не приобретет значение True.

Этот оператор называют оператором цикла с постусловием. Выполняется оператор Do...Loop следующим образом. Если условие имеет значение False, выполняются все операторы после инструкции Do. Затем управление передается инструкции Until и вновь проверяется условие. Если условие по-прежнему имеет значение False , процесс повторяется. Если оно имеет значение True, управление передается следующему за инструкцией Loop Until оператору. В связи с этим элемент условие здесь является условием выхода из цикла.

^ Оператор цикла For...Next.

Часто при составлении макроса заранее известно количество повторений группы операторов, в таких случаях можно использовать инструкцию For...Next.

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

Синтаксис инструкции For...Next

For счетчик = начало То конец [step шаг]

[операторы]

Next [ счетчик]

счетчик — обязательный элемент. Это должна быть числовая переменная. Она не может иметь тип Boolean или быть элементом массива.

начало — обязательный элемент, содержит начальное значение переменной счетчик.

конец — обязательный элемент, содержит конечное значение переменной счетчик.

шаг — элемент необязательный, это значение, на которое изменяется счетчик при каждом выполнении тела цикла. Если это значение не задано, по умолчанию шаг равен единице. Шаг может быть как положительным, так и отрицательным.

операторы— необязательный элемент. Один или несколько операторов между For и Next, которые выполняются указанное число раз.

Инструкция For...Next работает следующим образом: начальное значение элемента счетчик сравнивается с конечным значением. Если шаг положителен и начальное значение меньше конечного или если шаг отрицателен и начальное значение больше конечного, то управление передается внутрь тела цикла. После выполнения всех операторов в теле цикла значение шаг добавляется к текущему значению переменной счетчик. После этого операторы тела цикла либо выполняются еще раз (на основе того же условия, которое привело к начальному выполнению цикла), либо цикл завершается и выполнение продолжается с оператора, следующей за Next.

Допускается вложение циклов For...Next (один цикл For...Next располагается внутри другого). Счетчик каждого цикла должен иметь уникальное имя.

Пример. Составить таблицу значений функции y=x2 на отрезке [2,8] с шагом 0.5.

Программа

Sub Tablica()

Dim x, y As Double, i As Integer

i = 1

Cells(1, 1) = "X": Cells(1, 2) = "Y"

For x = 2 To 8 Step 0.5

y = x ^ 2

i = i + 1

Cells(i, 1) = x: Cells(i, 2) = y

Next x

End Sub

Пример. Вычислить сумму квадратов n чисел: 1,4,9,16,25,… . Число n задать произвольно при вводе.

Программа

Sub sum()

Dim n, i As Integer, s As Double

n = Val(InputBox("Введите количество слагаемых n"))

s = 0

For i = 1 To n

s = s + i ^ 2

Next i

MsgBox ("Сумма s=" + Str(s#))

End Sub

Пример. Вычислить произведение квадратов n чисел: 1,4,9,16,25,… . Число n задать произвольно при вводе.

Программа

Sub Proiz()

Dim n, i As Integer, p As Double

n = Val(InputBox("Введите количество слагаемых n"))

p = 1

For i = 1 To n

p = p * i ^ 2

Next i

MsgBox ("Произведение p=" + Str(p#))

End Sub

Пример. Дана числовая последовательность:

Вычислить сумму данной последовательности при n= с точностью 0.000001.
Программа

Sub Iter()

Dim a, e, s As Double

a = 1 'первый член ряда

s = a 'сумма ряда

e = Val(InputBox("Введите точность вычислений"))

Do 'начало цикла

a = -a / 2 'вычисляем очередной член последовательности

s = s + a 'накапливаем сумму

Loop Until Abs(a) < e 'конец цикла

MsgBox ("Сумма s=" + Str(s#))

End Sub
^ Вложенные циклы

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

Пример. Составить таблицу значений функции на отрезке [1,4] c шагом h=0.5.

Программа

Sub VlCircle()

Dim x, s, a, b, h As Double, i, n, k As Integer

a = Val(InputBox("Введите а"))

b = Val(InputBox("Введите b"))

h = Val(InputBox("Введите шаг h"))

n = Val(InputBox("Введите количество слагаемых n"))

k = 1

Cells(1, 1) = "X": Cells(1, 2) = "S"

For x = a To b Step h

s = 0

For i = 1 To n

s = s + x / i

Next i

k = k + 1

Cells(k, 1) = x: Cells(k, 2) = s

Next x

End Sub









Скачать файл (38.5 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации