ОС-ч1 ЛАБ РАБ (Методические указания к выполнению лабораторных работ по Операционным системам), страница 2

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

Имя переменной должно начинаться с буквы и может содержать любую комбинацию букв, цифр и символов за исключением точек, пробелов и следующих символов: !, %, &, $, #,@. Длина имени не должна превышать 255 символов. Не следует использовать имена, совпадающие с ключевыми словами VBA и именами встроенных функций и процедур.

Основные типы переменных, их размеры и диапазоны принимаемых значений приведены

в табл. 2.

Переменные типа Variant могут хранить все, что в них поместят. Их тип изменяется в зависимости от последнего присвоения. В программах переменные описываются с помощью специального оператора Dim.

Массив - упорядоченная совокупность однотипных переменных. Массивы имеют имя и размерность. Имя массива подбирается с учетом тех же правил, что и имена переменных. Размерность - это количество элементов (переменных), составляющих массив.

Из констант, переменных и встроенных функций (они рассмотрены ниже) с помощью скобок и знаков арифметических операций (+,-,*,/,MOD,\,^) можно составлять выражения. Частным случаем выражения может быть просто одиночный элемент, т.е. константа, переменная или обращение к встроенной функции. Здесь MOD- деление по модулю, \ -целочисленное деление, ^- возведение в степень. В качестве разделителя между целой и дробной частями используется (.), символ (.).

Примеры выражений:

• Y

• 21.5

• (а+b)*с

• sin(t).

В VBA имеется большой набор встроенных функций, которые разделяют на категории. Примеры категорий:

• математические функции;

• логические функции;

• функции проверки типов;

• функции преобразования форматов;

• функции времени и даты. Некоторые из функций приведены в табл. 3. (в таблице х - это выражение).

Кроме перечисленных функций, объект Applications позволяет вызвать более 400 встроенных функций рабочего листа при помощи конструкции вида:

Application.Функция Рабочего Листа(Аргументы).

Примеры:

• Application.Sum(Sheets(“yчет”)-Range(“Al:B20”)) - суммируются значения из ячеек диапазона “А1:В20”, расположенного на листе Учет;

Application.Count(Sheets(“Сотрудники”)-Range(“A:А”))

подсчитываемая количество непустых ячеек в столбце А на листе Сотрудники.

Встроенные диалоговые окна

В VBA имеются две разновидности диалоговых окон: окна сообщений и окна ввода.

1. Окно сообщений - MsgBox - выводит простейшие сообщения для пользователя. Синтаксис:

MsgBox “Сообщение”[,тк][,тз][,исф,нр], где

• тк - тип кнопок в окне, если тк=0, то в окне будет одна кнопка Ок, если тк=1, то в окне будут две кнопки Ок и Отмена;

• тз - текст заголовка диалогового окна;

• исф - имя справочного файла, содержащего справочные сведения о данном диалоговом окне;

• нр - номер раздела справочной системы

Аргументы в квадратных скобках приводить необязательно.

Пример:

MsgBox”Bы делаете много ошибок”„”Пример”

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

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

Синтаксис:

InputBox (“Сообщение”[,тз][,умолчание][,х][,у][,исф,нр]),

где

• тз - текст заголовка диалогового окна;

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

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

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

• исф - имя справочного файла, содержащего справочные сведения о данном диалоговом окне;

• нр - номер раздела справочной системы.

Пример:

Имя=InputВох(“Как Вас зовут?” ,”Вопрос”)

MsgBox “Привет!”&Имя,1,”Приветствие”

Знак & обозначает сложение (сцепление) строк

После выполнения первой инструкции приведенной программы на экране появится следующее окно (см. рис. 25).

Если мы наберем в окне ввода имя Федя и нажмем на кнопку Ок; то после выполнения второй инструкции на экране появится следующее диалоговое окно (см. рис. 26).

Программа на VBA - это последовательность операторов.

При составлении программ следует придерживаться ряда соглашений. Так, в одной строке можно разместить несколько операторов. Между операторами в одной строке ставится двоеточие.

Любую строку можно разбить на две, расположив в конце первой знаки символов «Пробел» + «Знак подчеркивания» ( _), в этом случае вторая строка будет считаться продолжением первой.

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

1. Оператор Dim предназначен для объявления типов переменных.

Примеры:

• Dim A As Integer - переменная А объявляется как целое, т.е. в ней будут храниться только целые величины.

• Dim D As Date - объявляется переменная D для хранения дат.

• Dim Фамилия, Наименование As String - объявлются переменные Фамилия и Наименование, предназначенные для хранения текста.

• Dim B(12) As Integer - объявляется одномерный массив (вектор), состоящий из 13 целых чисел, причем по умолчанию первый элемент массива будет В(0), а последний В(12),

• Dim B(3,3) As Single - объявляется двухмерный массив 3x3 (матрица), состоящий из действительных чисел.

• Dim m() As Integer-- объявляется динамический массив m, размерность массива указывается перед его использованием,

ReDim m (k) – k - переменная целого типа.

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

2. Оператор присваивания предназначен для присваивания переменной какого-либо значения.

Синтаксис:

Переменная (или свойство объекта) = выражение.

Примеры:

• а=5 - переменной А присвоить значение 5;

• Aдpec=Sheets(“Организации”).Cells(2,2) - переменной Адрес присвоить содержимое ячейки В2, которая находится на листе Организации в текущей рабочей книге;

• Фамилия=UserForml.TextBoxl.Text - переменной Фамилия присвоить содержимое поля TextBoxl пользовательской формы UserForml;

• UserForml.TextBox1.Text=Date - в первое поле ввода пользовательской формы номер один записать текущую дату.

3. Оператор With/End with избавляет программиста от большого количества повторений имени одного и того же объекта.

Синтаксис:

With объект

оператор1

оператор2

………….

операторN

End with

Например, вместо последовательности операторов

UserForml.TextBoxl.Text=Date

UserForml. TextBox2.Text = “ ”

UserForml.ComboBoxl.Text = “ “

UserForm1.ComboBox2.Rowsourse= “список”

можно записать так

With UserForml

.TextBoxl.Text = Date

.TextBox2.Text = “ “

.ComboBoxl.Text = “ “

.ComboBox2.Rowsourse= “список”

End with

4. Условный оператор If/Then/Else - позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие.

Синтаксис оператора:

If условие Then

операторы 1

[ ElseIf условие Then

Операторы 2]

[ Else

Операторы 3]

End If

Примеры:

With UserForml

Фамилия = .TextBox 1.Text

If Фамилия =” “ Then MsgBox” Вы не ввели фамилию”

End with

2. REM При установленном флажке номер один клиенту

'предоставляется скидка 5%

' Сумма - количество денег, выплачиваемых клиентом

‘Стоимость товара хранится в переменной Стоимость

If UserForml.CheckBoxl.Value =True Then

Сумма = Стоимость-Стоимость *0,05

Else Сумма=Стоимость

End If

3. If IsNumeric(TextBox1 .Text)=True And _

IsNumeric(TextBox2.Text)=True Then

MsgBox("B поля введены числа")

End If

В первом примере работа ведется с пользовательской формой номер один. Переменной Фамилия присваивается содержимое поля ввода номер один. Затем осуществляется проверка, было ли что-либо введено в поле ввода (не пуста ли переменная Фамилия). Если переменная Фамилия пуста, то на экран выводится окно сообщения.

Во втором примере - первые строки, начинающиеся со слова Rem и апострофов, - это комментарии, объясняющие назначения переменных. С помощью условного оператора определяется сумма, выплачиваемая клиентом.

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

5. Оператор безусловного перехода GoTo предназначен для задания перехода на указанную строку внутри программы.

Синтаксис: GoTo Строка

Обязательный аргумент Строка может быть любой меткой строки или номером строки. Пример: If IsNumeric(TextBoxl.Text)=False Then GoTo Ошибка

……………….

Ошибка:

MsgBox “Ошибка при вводе чисел!”

В приведенном примере выполняется проверка того, введено ли число в поле ввода номер один. Если введено не число, то осуществляется переход на строку с меткой Ошибка, и на экран выводится сообщение.

Условный оператор Select Case

Select Case <Анализируемое выражение>

Case < Значение1>

<Группа операторов 1>

Case < Значение 2>

<Группа операторов 2>

……

[ CaseElse

<Группа операторов 3>]

End Select

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

Операторы циклов: Синтаксис:

1. For переменная = M1 То М2 [Step МЗ]

< Группа операторов>

Next

Ml, M2, МЗ - выражения. Оператор цикла повторяет выполнение группы операторов, пока переменная (счетчик) изменяется от начального значения Ml до конечного М2 с указанным шагом МЗ. Если шаг не указан, то он полагается равным 1.

Досрочный выход Exit For

2 . Do While < Логическое выражение>

< Группа операторов>

Loop

Выполняется пока выражение истинно.

Либо 2.1. Do Until < Логическое выражение>

< Группа операторов>

Loop

Выполняется пока выражение ложно

Досрочный выход Exit Do

3. Do

< Группа операторов>

Loop While < Логическое выражение>

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

3.1. Либо Do

< Группа операторов>