Тема контрольной работы №2 - «Автоматизация обработки информации в приложениях Windows»

Введение

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

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

В данной контрольной работе студенты изучают обработку данных на языке программирования высокого уровня VBA(Visual Basic for Application).

В методических указаниях содержатся:

§ Рабочая программа (цели и задачи дисциплины, содержание дисциплины - темы лекций)

§ 11 вариантов контрольных заданий.

§ перечень методических материалов. Раздел 3 «АЛГОРИТМИЗАЦИЯ И ПРОГРАММИРОВАНИЕ»

§ Демонстрационные примеры.

§ Порядок оформления работы

§ Список литературы.

Автоматизированное программирование обработки данных на языке программирования высокого уровня VBA(Visual Basic for Application) изучается студентами на первом курсе во 2 – м семестре.

Контрольная работа №2 выполняется в период между сессиями в установленные учебным графиком сроки.

Тема контрольной работы №2 - «Автоматизация обработки информации в приложениях Windows»

РАБОЧАЯ ПРОГРАММА

ЦЕЛИ И ЗАДАЧИ ДИСЦИПЛИНЫ, ЕЕ МЕСТО В УЧЕБНОМ ПРОЦЕССЕ

1.1. Цель преподавания дисциплины:

1.обучение

· студентов современным методам и средствам информатики;

· разработке алгоритмов для решения практических задач;

· практическим навыкам программирования;

2. формирование

· фундамента современной информационной культуры,

3. выработка

· устойчивых навыков работы на персональном компьютере в качестве конечного пользователя;

4.ознакомление

· с различными сферами применения компьютеров в современном обществе.

1.2. Задачи изучения дисциплины

В результате изучения дисциплины студенты должны:

3 владеть основами автоматизации решения инженерно-технических задач;

3 уметь работать с современными программными средствами;

3 уверенно работать на персональном компьютере в качестве конечного пользователя.

2. Содержание дисциплины

Темы и их содержание, для лекций и самостоятельного изучения студентами.

Введение (1 ч)

. Алгоритмизация. Понятие алгоритма и его свойства. Основные понятия языка программирования высокого уровня Visual Basic.

РАЗДЕЛ 3. АЛГОРИТМИЗАЦИЯ И ПРОГРАММИРОВАНИЕ.(6 ч)

Тема 3.1. Модели решения функциональных и вычислительных задач. Инструментарии функциональных задач. Программное обеспечение ЭВМ и технологии программирования. Алгоритмизация(2 ч).

Тема 3.2. Автоматизация обработки информации в приложениях WINDOWS с использованием языков высокого уровня.(4 ч)

Организация построения программы. Организация данных. Константы. Переменные. Типы данных. Управление ходом выполнения программы. Ветвление по условию, по значению. Циклы с предусловием, с постусловием, со счетчиком, обработка массивов.

Контрольная работа №2

Тема - «Автоматизация обработки информации в приложениях Windows»:

АЗДЕЛ 3. «Автоматизированное программирование объектов обработки данных из БД».

Цель работы – Освоение новых информационных технологий для решения практических задач из области легкой и текстильной промышленности:

Для каждого варианта задания:

Разработать блок-схемы линейного, разветвленного, циклического алгоритмов и с обработкой массивов.

Составить программы.

Выполнить программы (при наличии компьютера), иначе – выполнить в тетради.

Вариант 1

Раздел 3.

1. Даны числа X и Y. Вычислить Z=f(T, P)(Линейный алгоритм).

T= ; P= ; Z=

2. Задать 9 положительных величин, 8 из которых имеют одинаковое значение, а одно из них меньше. Составить алгоритм и программу поиска этой (меньшей) величины, используя как можно меньше сравнений ( операторов if ). Наилучший результат – 2 сравнения. На экран вывести меньшую величину (Разветвленный алгоритм).

3. Получить значения функции Y=F(x) с использованием цикла( do - )

Y (x)=(a+x)/(a-x), -1< =x< =1, a=10, h=0.2 ( Циклический алгоритм)

4. Заполнить массивы X(10) и Y(10 ) произвольными величинами. Если число положительных элементов массива X больше числа положительных элементов массива Y, то все отрицательные элементы массива X заменить единицами и вывести массив X, если нет, то перед всеми положительными элементами массива Y поставить знак минус и вывести полученный массив Y(Обработка массива)

Вариант 2

Аздел 3.

Даны величины X и Y. Вычислить Z=f(T, P) (Линейный алгоритм).

T= ; P= ; Z=P*T, для x ≠ y

Рассчитать суммы доплат для сотрудников предприятия. Исходные данные - количество детей и стаж:

Доплаты за несовершеннолетних детей (за 2-х – 200 рублей; 3-х – 300 рублей; 4-х и более – 500 рублей) и за стаж работы на данном предприятии (более: 10 лет – 100 рублей; 20 лет – 200 рублей; 30 лет- 300) Ввести количество детей, стаж и сумму доплаты (Разветвленный алгоритм).

Получить значения функции Y=F(x) с использованием цикла (do - Циклический алгоритм)

Y= для х=0.5; 0.6; …; 2

Даны массивы А(5) и В(5), состоящие из положительных элементов. Найти произведение их средних геометрических. (Обработка массива).

Вариант 3

Раздел 3.

1. Даны числа X и Y. Вычислить Z=f(T, P). (Линейный алгоритм)

T= ; P= ; Z= P-T.

2. Даны два числа А и В. Если А> В, то возвести А в квадрат и вывести полученное значение, в противном случае вывести значение В..( Ветвящийся алгоритм )

3. Получить значения функции Y=F(x) с использованием цикла( do. .).

F(x)=х+1 для х=1.5; 1.6; ….; 2.5 (Циклический алгоритм )

4. Дан массив А(10). Найти сумму положительных элементов. ( Обработка массива )

Вариант 4

Раздел 3

1. Даны числа X и Y. Вычислить Z= f(T, P) (Линейный алгоритм)

T= ; P= ; Z = T-P.

2.. Даны два числа А и В. Если А+В> 1О вычислить А+В, если нет вычислить Sin(А-В). Полученные результаты вывести..( Ветвящийся алгоритм)

3. Получить значения функции Y=F(x) с использованием цикла(do..).

F(x) = х+1/х для х=1.5; 1.6; ….; 2.5 (Циклический алгоритм )

4. Дан массив В(10). Найти сумму отрицательных элементов. ( Обработка массива)

Вариант 5

Раздел 3.

1. Даны числа X и Y. Вычислить Z= f(T, P) (Линейный алгоритм)

T= Sin(x+y); P= x ; Z=P*T

2.. Даны числа А, В, С. Если их среднее арифметическое больше А -вычислить А-5, в противном случае вычислить сумму В+С. Полученный результат вывести..( Ветвящийся алгоритм )

3. Получить значения функции Y=F(x) с использованием цикла (do.). F(x) = х+1/ для х=1.5; 1.6; ….; 2.5 (Циклический алгоритм)

4. Дан массив В(10). Найти индексы наибольшего и наименьшего элементов и их значения (Обработка массива )

Вариант 6

Раздел 3.

1. Даны числа X и Y. Вычислить Z= f(T, P) ) (Линейный алгоритм)

T= ; P= x*y; Z=

2. Даны числа А, В, С. Если их среднее геометрическое меньше 5, вывести сумму А+В+С, если нет - их произведение.( Ветвящийся алгоритм )

3. Получить значения функции Y=F(x) с использованием цикла (do..). F(x) =sin(х+1/х) для х=1.2; 1.3; ….; 2.5(Циклический алгоритм )

4. Дан массив C(10). Найти сумму его элементов и среднее арифметическое( Обработка массива)

Вариант 7

Раздел 3.

1. Даны числа X и Y. Вычислить Z= f(T, P) (Линейный алгоритм)

T= P= ; Z= .

2. Даны две пары чисел А, В и С, Д. Если сумма А+В больше С+Д, вычислить (А+В)^2, если нет то вычислить (С+Д)^3. Результат вычислений вывести ( Ветвящийся алгоритм)

3. Получить значения функции Y=F(x) с использованием цикла( do..).

F(x) = cos(х-1 ) для х=2.5; 2.6; ….; 3.5(Циклический алгоритм )

4. Дан массив D(10). Найти сумму его элементов и их произведение (Обработка массива)

Вариант 8

Раздел 3

1. Даны числа X и Y.Вычислить Z= f(T, P) (Линейный алгоритм)

T= x+ ; P=e Z=

2. Даны две пары чисел А, В и С, Д. Если А*В> С*Д, то вывести среднее арифметическое этих чисел, в противном случае среднее геометрическое ( Ветвящийся алгоритм)

3. Получить значения функции Y=F(x) с использованием цикла( do.. ). F(x) = cos (х+1/х-1 ) для х=1.5; 1.6; ….; 2.5(Циклический алгоритм )

4. Дан массив F(10). Найти сумму и произведение его отрицательных элементов (Обработка массива)

Вариант 9

Раздел 3.

1. Даны числа X и Y. Вычислить Z= f(T, P) (Линейный алгоритм) T=sin(x+y); P= X/(X-Y); Z=cos(T/P) для x≠ y

2.. Даны два числа А и В. Если А> В, то А присвоить значение В, а В - значение А. Вывести полученные значения А и В. ( Ветвящийся алгоритм)

3. Получить значения функции Y=F(x) с использованием цикла (do). F(x) = arctg (х+1/х-1) для х=2.2; 2.3; ….; 3.5(Циклический алгоритм ).

4. Дан массив R(10). Найти сумму индексов максимального и минимального элементов и их значений (Обработка массива)

Вариант 10

Раздел 3.

1. Даны числа X, Y и А. Вычислить Z= f(T, P) (Линейный алгоритм)

T= ; P=х+у; Z= cos(T*P).

2. Даны два числа А и В. Если А-В> 0, то значения А и В возвести в квадрат и вывести результаты ( Ветвящийся алгоритм)

3. Получить значения функции Y=F(x) с использованием цикла (do..). F(x) = arctg (х/х+1 ) для х=1.2; 1.3; ….; 2.5(Циклический алгоритм )

4. Дан массив R(10 ). Найти сумму значений элементов из диапазона [5, 25] (Обработка массива)

Вариант 11

Раздел 3

1. Даны числа X, Y и А. Вычислить Z= f(T, P) (Линейный алгоритм)

T= ; P=х-у; Z=cos(T*P).

2. В переменные Х, У, Z ввести произвольные значения и выбрать из них минимальное. ( Ветвящийся алгоритм)

3. Получить значения функции Y=F(x) с использованием цикла (do..). F(x) = arctg (х/х+1) для х от 1.5 до 3.8 с шагом 0.2(Циклический алгоритм )

4. Дан массив Z (10). Найти сумму значений элементов из диапазона [-5, 5].(Обработка массива)

Темы для самостоятельного изучения.

Раздел 3.

ü Алгоритмизация: понятие алгоритма, разновидности алгоритмов, принципы построения алгоритмов.

ü Основные понятия языка программирования высокого уровня Visual Basic: принципы построения программ, константы, переменные, типы данных.

ü Управление ходом выполнения программы: организация ветвлений по условию (if... then... endif) и значению (select case... endselect), организация циклов с предусловием (do {while/until}... loop), постусловием (do... loop{while/until}) и со счетчиком (for.. next, for each... next ). Организация ввода- вывода: инструкция вывода (msgbox... ), функции ввода-вывода (inputbox(...), msgbox (...)).

Методические материалы.

Основные понятия об алгоритмизации задач

Алгоритм и его свойства

Алгоритм (алгорифм) – любая конечная последовательность основных математических и логических действий, однозначно определяющих процесс преобразования исходных данных в конечные результаты решения задачи. Название «алгоритм» произошло от латинской формы арабского по имени хорезмийского математика аль-Хорезми – Algorithmi. Алгоритм – одно из основных понятий математики и информатики.

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

Основные свойства алгоритмов:

1. Понятность для исполнителя - исполнитель алгоритма должен знать, как его выполнять.

2. Дискретность - прерывность, раздельность. Алгоритм должен представлять процесс решения задачи как последовательное выполнение простых шагов (этапов).

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

Алгоритм линейной структуры

Пример 1. Определение длины окружности и площади круга по формулам:

Обозначения: S - площадь круга;

r - радиус;

pi - константа;

l - длина окружности.

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

Пример 2.

Вычисление функции F(x)=sinx/x, при х не равном нулю и F(x)=1, при х равном нулю.

Обозначения: F=F(x); sin(x)=sinx

Пример 3. Определить принадлежность двух точек к одной окружности с центром в начале координат, если заданы координаты этих точек x1, y1, x2, y2.

Алгоритмы циклической структуры

Пример 4. Найти сумму S значений i^2, где i меняется от 1 до 5 с шагом 1. Использовать цикл с заданным числом повторений.

Пример 5. Алгоритм вычисления значений функций y=sin2x при 4< =x< =5 с шагом h=0.1.

Краткие сведения об основах программирования. Введение в язык программирования высокого уровня Visual Basic for Applications(VBA).

Сначала разрабатывается алгоритм действий поставленной задачи, а затем он записывается на одном из языков программирования. Язык программирования – искусственный язык. Он опирается на словарь служебных слов и команд, а также систему правил записи конструкций языка. С помощью языка программирования создается исходный текст программы. Программа – полное и четкое описание алгоритма на языке программирования. Чтобы программа работала, ее нужно перевести в машинный код. Этим занимаются специальные программы – компиляторы и интерпретаторы. Интерпретаторы просматривают и сразу выполняют инструкции языка, содержащиеся в тексте программы, подробно информируя разработчика программы о возникающих проблемах.

Среди множества языков программирования высокого уровня Visual Basic по популярности стоит на первом месте во всем мире, используется в качестве учебного языка из-за простоты в изучении.

Работа в среде Windows с ее приложениями, решающими практические задачи, значительно облегчается с использованием языка Visual Basic for Applications. Visual Basic for Applications – объектно - ориентированный язык высокого уровня. Основным достоинством этого языка является относительная простота и доступность в изучении. Будучи языком, встроенным в какое-либо приложение Microsoft Office, он улучшает возможности данного приложения. В учебном курсе по изучению языка рекомендуется начинать свои первые шаги в программировании в среде Excel независимо от ее версии, поскольку Excel обладает достаточно простой объектной моделью.

Алфавит. Алфавит языка включает следующие символы:

53 буквы – прописные () и строчные буквы латинского алфавита и знак подчеркивания(_);

10 цифр(0 - 9);

23 специальных символа (+ - * /., : ; = < > ‘ “ ( ) [ ] & $ @ ^ пробел \);

составные символы (< > < = > = );

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

Слова подразделяются на:

Ключевые;

Стандартные идентификаторы;

Идентификаторы пользователя.

Ключевые (зарезервированные) слова имеют фиксированное написание и однозначно определенный смысл, который не может быть изменен. Например, Until, Goto, If, Loop, For и т. д.

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

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

§ Имя не может содержать знаков точки, пробела, %, & , ! , #, @, $;

§ Имя может состоять из любой комбинации букв, цифр и других символов, начинающейся с буквы;

§ Нельзя использовать имена, совпадающие с именами встроенных функций и процедур и ключевыми словами;

§ Имена должны быть уникальны внутри области, в которой они определены;

§ Регистр букв (верхний или нижний) не имеет значения, но для большей наглядности текста программы и облегчения ее понимания следует умело сочетать верхний и нижний регистры. Например, вместо имени товар лучше написать Товар, или вместо процентная_ставка написать Процентная_Ставка.

Типы данных в VBA

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

Тип данных	Размер(байт)	Диапазон значений
Byte(байт)		0..255
Boolean(логический)		True или False
Integer(целый)		-32 768.. 32 767
Long(целый -длинный)		-2 147 483 648.. 2 147 483 647
Single(вещественный)		-3, 402823E38..- 1, 401298E-45для отрицательных значений; 1, 401298E-45.. 3, 402823E38 для положительных значений
Double		1, 79769313486232 E 308
Currency(с фиксированной десят. точкой)		От 22337203685477, 58 до 922337203685477, 58
Date		От January 1, 100 до December 31, 9999
String(символьный переменной длины)	10 байт+длина строки	От 0 до 2000000000 символов
String(символьный фиксированной длины)	1 байт на 1 символ	От 0 до 2000000000 символов
Variant
Variant	22+длина строки	Как для строки String переменной длины
Object		Любой указатель объекта
Тип данных, определяемый пользователем с помощью ключевого слова Type	Объем определяется элементами	Диапазон каждого элемента определяется его типом данных

Если тип переменной не задан, то она по умолчанию получает тип Variant и далее результат зависит от ее значения.

После ключевого слова Dim следуют объявления переменных разделенных запятыми. Например, следующая инструкция описывает A и B, как переменные целого типа(Integer), а C – как переменную вещественного типа (Single). Dim A AS Integer, B AS Integer, C As Single.

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

Const < имя константы > [AS Тип] = < Выражение>,

Где

Имя константы - имя, удовлетворяющее стандартным правилам VBA;

Тип – один из допустимых типов данных VBA, табл.1..

Выражение – литерал, другая константа или любое сочетание, включающее арифметические или логические операции, за исключением Is.

Пример объявления констант с именами Фирма и Процентная_ставка.

Const Фирма = «Бескрайние просторы»

Const Процентная_ставка As Single = 0.2

Встроенные функции

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

Математические;

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

Функции обработки строк;

Функция форматирования;

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

функции даты и времени.

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

Abs (x) - модуль аргумента x

Cos(x) - косинус аргумента x

Exp(x) - возведение основания натурального логарифма в степень x

Log(x) - логарифм натуральный аргумента х

Rnd - случайное число из интервала [0, 1]

Sin(x) - синус аргумента x

Sqr(x) - квадратный корень из х

Atn(x) - арктангенс от х

Tan(x) – тангенс от х

Sgn(x) – знак х

Fix(x) и Int(x) обе функции отбрасывают дробную часть числа и возвращают целое значение. Разница между этими функциями состоит для отрицательных значений аргумента. Int(x) возвращает ближайшее отрицательное целое число, меньшее или равное х, а Fix(x) – ближайшее отрицательное целое число, большее или равное х.

Функции проверки типов

Функция	Проверка - является ли переменная:
IsArray(переменная)	массивом
IsDate(переменная)	датой
IsError(переменная)	Кодом ошибки
IsNull(переменная)	Пустым значением
IsNumeric(переменная)	Числовым значением
IsObject(переменная)	объектом

Функция форматирования возвращает значение типа Variant(String ), содержащее выражение, оформленное согласно синтаксиса функции:

Format(Выражение[, Формат [, Первый день недели[, Первая Неделя Года]]]), где:

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

Формат – необязательный параметр(любое допустимое именованное или определенное пользователем выражение формата).

Если к имени функции добавляется знак $, то функция возвращает значение типа String.

При создании собственного числового формата можно использовать следующие символы:

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

# - действие данного символа аналогично действию 0 с той лишь разницей, что незначащие нули не отображаются.

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

% - резервирует процентное отображение числа.

. – разделяет сотни от тысяч.

Если в формате стоит “FIXED”, то число форматируется до двух знаков после точки.

Пример.

Функция Format(Z, " ###0.0" ) возвращает переменной Z числовое значение в формате, указанном в кавычках.

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

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

Str(число) – возвращает значение типа Variant (String), являющееся строковым представлением числа.

Кроме функций Val и Str имеется ряд функций по преобразованию типов выражений.

Функции обработки строк

Среди множества функций можно выделить следующие:

Chr(код) – преобразует ASCII – код в строку. Например, Chr(10) осуществляет переход на новую строку, Chr(13) – возврат каретки.

Mid(string, pos[, length]) – возвращает подстроку строки, содержащую указанное число символов, где

String – строковое выражение, из которого извлекается подстрока;

Pos – позиция символа в строке String, с которого начинается нужная подстрока;

Length – число возвращаемых символов подстроки.

Len(строка) –возвращает число символов строки.

Функции времени и даты

Возвращают значение типа Variant, содержащее системную дату, текущее время и т. д. Например функция Date возвращает значение, содержащее системную дату.

Выражения

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

§ Операнды;

§ Знаки операций;

§ Круглые скобки.

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

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

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

В выражениях допускается использовать следующие операции над данными:

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

Отношения - выполняются над числами и их результатом являются логические значения True (истина) или False (ложь), например

x + y > z;

Логические True или False – используются в логических выражениях и их результатом являются логические значения, например A Or B, где A и B – переменные логического типа. Результат этой операции может быть True или False, и это зависит от того, какие значения имеют переменные A и B.

Операции над строками – используются в выражениях над строками и их результатом является строка символов.

Арифметические операции – сложение (+), вычитание (-), умножение (*), деление (/), целочисленное деление (\), возведение в степень (^), остаток от деления по модулю (mod).

Операции отношения – равно (=), не равно (< > ), меньше или равно (< =), больше или равно (> =), меньше (< ), больше (> ), сравнение двух строковых выражений (Like).

Логические операции – логическое умножение(And), логическое сложение(Or), логическое отрицание(Not), исключающее Or (Xor).

Операции над строками – соединение двух строк (+), предпочтительнее использовать знак &.

Примеры записи выражений

Математическая запись. Запись на VBA.

2ав+х 2*а*в+х^2

sqr(x+a)

е exp(x)

lntgx Log(Tan(x))

Sinx Sin(x)

Rnd+2a Rnd+2*a

Примеры комментария.

‘Заголовок процедуры общего вида с именем Prim1

SUB Prim1()

‘Объявление переменной C целого типа

Dim C As Integer

Sub DEMOLB9()

Dim A As Single ‘ описание переменной A вещественного типа

Dim B As Integer ‘ описание переменной B целого типа

Dim C As String ‘ описание переменной C строкового типа

Dim D As Single ‘ описание переменной D вещественного типа

A = Rnd ‘переменной A присваивается случайное число из [0, 1]

A = A + 12.7

B = Int(A) ‘переменной B присваивается целая часть числа A

D = -123.56

D = Fix(D) ‘переменной D присваивается целая часть числа D

C = " ГРУППА"

MsgBox " A= " & A & (Chr(10) & Chr(13)) _ ‘ Вывод результата в окно

& " B= " & B & (Chr(10) & Chr(13)) _ ’ в трех строках

& " D= " & D, vbInformation, Date & C

End Sub

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

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

[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

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

Пример 1.

Sub условие()

Dim a, b, c

‘ Даны три числа: a, b, c. Определить, можно ли

‘ построить треугольник, если интерпретировать a, b, c

‘ как длины сторон треугольника.

a=Val( InputBox(“Введите 1 число ”))

b= Val( InputBox(“Введите 2 число ”))

c= Val( InputBox(“Введите 3 число ”))

If (a+b)> c And (a+c)> b And (b+c)> a Then

MsgBox “ треугольник построить можно”

Else

MsgBox “ треугольник построить нельзя”

End If

End Sub

При: а=8, в=5, с=4 а=10, в=5, с=4

12 3 4 5 6 7 Следующая ⇒