Программирование алгоритмов линейной структуры

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

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

Реализация алгоритмов линейной структуры

Инструкции присваивания

Формат записи:

[Let]<Имя переменной> (или <Имя константы>= <Выражение> , где:

<Имя переменной>, <Имя константы>- конструкции, построенные по правилам VBA.

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

Инструкция вычисляет значение выражения и присваивает это значение переменной или константе.

В частных случаях выражение может принимать значение константы, переменной или функции. Например:

Y=Sqr(X)

A=22.5

D=Exp(A)

S=S+R

F=X^2

В результате выполнения двух следующих операторов присваивания x=5 : x=x+2 переменной x будет присвоено значение 7.

Ввод и вывод информации

Для ввода и вывода информации в VBA используются две разновидности диалоговых окон (ДО):

§ окна ввода (InputBox);

§ окна сообщений (MsgBox);

Ввод информации осуществляется с помощью функции Inputbox. Функция InputBox осуществляет следующие действия:

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

устанавливает режим ожидания ввода текста пользователем или нажатия кнопки;

возвращает значение типа String, содержащее текст, введенный в поле.

Формат записи функции:

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

Сообщение – строковое выражение, отображаемое как текст сообщения в ДО. Сообщение может состоять из нескольких строк. Для их разделения допускается использование символа возврата каретки(Chr(13)), символа перевода строки(Chr(10)) или комбинации этих символов (Chr(13)) & (Chr(10)).

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

Поле ввода – вводимое строковое выражение (строка знаков).

Помимо указанных аргументов в формате функции InputBox могут использоваться параметры[,…], регулирующие положение диалогового окна на экране, и имя файла справки о данном окне.

Пример записи операторов присваивания и задания переменным A и B значений, возвращаемых функцией InputBox, открывающей диалоговые окна для ввода , рис.5 а) – б).

A=InputBox(“Вычисление остатка”, “Bвод A”)

B= InputBox (“Вычисление остатка ”,” Bвод B”)

	Заголовок окна

Рис. 5 а), б) Диалоговые окна ввода

В приведенных окнах «Ввод А» и «Ввод В» расположены в строке заголовка окна, в зоне сообщения – «Вычисление остатка», а в поле ввода – 22 и 7.

Инструкция и функция MsgBox выводит простейшие сообщения пользователю в диалоговом окне.

Формат инструкции MsgBox:

MsgBox (Строковое выражение_1 [, числовое выражение или имена констант][, строковое выражение_2][,…]), где:

Строковое выражение_1 – сообщение, отображаемое в диалоговом окне;

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

строковое выражение_2 – строковое выражение, отображаемое в строке заголовка диалогового окна.

Таблица 1.1. Значения аргументов процедуры MsgBox, определяющих информационные значки в диалоговом окне.

Константа Значение Значок сообщения

VbCritical 16

VbQuestion 32

VbExclamation 48

VbInformation 64

Помимо указанных аргументов в формате MsgBox могут использоваться параметры, регулирующие положение диалогового кна на экране, и имя файла справки о данном окне[,…]

Следующая инструкция вывода демонстрирует расположение параметров MsgBox в диалоговом окне вывода, рис.6.

MsgBox ”C=A MOD B” & (Chr(13)) & (C(10)) & _

“При:” & ” A= ” & A &” B= ” & B & (Chr(13) & Chr(10)) & “Остаток:” & “ C= ” & C,

_ Vbinformation,”Сегодня: ” & Date & “ Выполнила Ким.”

Где:

Знак операции & используется для слияния строк;

комбинация функций (Chr(13) & Chr(10)) - для перевода строки и возврата каретки, чтобы результаты вычислений были напечатаны в три строки

Рис. 6. Диалоговое окно вывода.

Примеры программы алгоритма линейной структуры

Выполнить вычисления по формулам:

T=(1-x)/(3*x-2*y)

P=x*(X-y/(1+x))/2

Z=T-P

Sub primLin()

Dim X, Y, T, P, Z As Single

X = InputBox("Окно ввода", "Ввести значение Х")

Y = InputBox("Окно ввода", "Ввести значение Х")

T = (1 + X) / (3 * X - 2 * Y)

T = Format(T, "###0.0")

P = X * ((X - Y) / (1 + X)) / 2

P = Format(P, "###0.0")

Z = T - P

Z = Format(Z, "###0.0")

MsgBox " x= " & X & " y= " & Y & (Chr(10) & Chr(13)) & _

" T= " & T & " P= " & P & " Z= " & Z, _

vbInformation, "Расчет по формулам: " & Date

End Sub