Задания на самостоятельную работу

1. Дан массив А(15). Заполнить массив случайными значениями от 0 до 25. Если в массиве есть хотя бы один элемент, равный 2, то все четные элементы массива заменить нулями и подсчитать их количество, иначе найти среднее арифметическое всех нечетных элементов. Вывести начальный и конечный состав массива.

2. Дан массив М(15). Если разность между средним арифметическим и средним геометрическим кратно 2, то элементы с четными индексами заменить нулями, иначе найти сумму квадратов всех элементов массива. Вывести полученный вектор.

3. Дан массив С (15). Найти среднее арифметическое всех элементов массива и наибольшее отклонение от среднего, т.е. максимум из (C(i) – среднее арифметическое).

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

5. Даны массивы С(8) и В(8). Заполнить массивы случайными значени-ями. Преобразовать значения элементов массива В по правилу: если С(i) делится на 5, то В(i) увеличить в пять раз, иначе B(i) заменить нулем. Вывести начальный и конечный составы массивов.

6. Дан массив М(15). Заполнить его случайными значениями от 0 до 15. Если количество элементов, значения которых лежат в пределах от 3 до 11 меньше 4, то найти сумму всех элементов массива кратных этому количеству, иначе возвести в квадрат те элементы массива, чей остаток от деления на количество не превышает 2. Вывести начальный и конечный состав массива.

7. Дан массив С (15). Найти среднее геометрическое всех элементов массива и наибольшее отклонение от среднего, т.е. максимум из (C(i) – среднее геометрическое). Если полученное наибольшее кратно 2, то заменить этим значением каждый третий элемент массива, иначе каждый пятый возвести в квадрат.

Лабораторная работа № 8-9
ОБЪЕКТНОЕ ПРОГРАММИРОВАНИЕ В VBA

Visual Basic For Application – визуальный объектно-ориентированный язык программирования приложений. Ключевой идеей объектно-ориентированного программирования является объединение данных и оперирующих с ними функций в один объект. Язык VBA не существует вне какого-либо приложения. Он встроен в такие приложения как редактор электронных таблиц Excel, СУБД МS Access, текстовый редактор Word. В каждом из этих приложений существуют свои объекты, которые могут строиться на основе более мелких объектов - элементов управления и объединяются в более крупные объекты – семейства.

Объект представляет собой элемент приложения, такой как, лист (Worksheet), ячейка (Cells), диапазон (Range) в Excel.

Семейство (объект Collection) представляет собой объект, содержащий несколько других объектов, как правило, одного и того же типа. Например, в Microsoft Excel объект Workbooks (рабочие книги) содержит все открытые объекты Workbook (рабочая книга).

Элемент семейства может быть идентифицирован по номеру или имени. Например, в следующей процедуре Workbooks(1) обозначает первый закрытый объект Workbook.

Sub CloseFirst()

 Workbooks(1).Close

End Sub

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

Свойство – это качественная или количественная характеристика объекта.

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

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

Объект.Свойство=Выражение

Например:

Range(“A2”).Formula=”=СУММ(А1:С1)”

В этом примере в ячейку с относительным адресом А2 (для адресации используется объект Range, который позволяет обратиться как к диапазону ячеек, так и к одной ячейке) активного рабочего листа Excel вставляется формула =СУММ(А1:С1) путем изменения свойства Formula.

Некоторые свойства являются неизменяемыми, т.е. доступными только для чтения. В этом случае синтаксис - Объект.Свойство=Выражение применять нельзя. Существует другой синтаксис, позволяющий читать свойства объекта, который выглядит следующим образом:

Переменная=Объект.Свойство

Например:

ТекущийПроцент=Cells(1,1).Value

В этом примере переменной ТекущийПроцент присваивается значение (свойство Value) ячейки А1 (первая строка, первый столбец - Cells(1,1)) текущего рабочего листа Excel.

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

Метод представляет собой действие, выполняемое над объектом.

Синтаксис вызова метода объекта имеет следующий вид:

Объект.метод

В приложении Microsoft Excel у объекта диапазон ячеек имеется метод Clear, позволяющий очистить содержимое диапазона. Если предварительно задать имя диапазона, то вызов метода очистки имеет следующий синтаксис:

Range (“Личные сведения”).Clear

А в примере:

 Range (“А10:С12”).Select - выбирается диапазон ячеек А10:С12.

Инструкция With..End With

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

Синтаксис:

With объект

[инструкции]

End With

Например:

Sub Цвет()

Dim a As Object

For Each a In Selection

If a.Value = 0 Then

     With a.Font ‘ – шрифт диапазона ячеек

           .Bold = True ‘ – жирный шрифт

          .ColorIndex = 3 ‘ – цвет шрифта ячейки (3 - красный)

         .Size = 20 ‘ – размер шрифта ячейки

   End With

End If

Next

End Sub

В этом примере в зависимости от содержимого ячейки выделенной области, которая возвращается методом Selection, меняется размер шрифта, цвет и тип шрифта каждой ячейки. В данной процедуре Font – шрифт диапазона ячеек – является объектом, который имеет такие свойства, как цвет, размер и тип шрифта. Воспользовавшись инструкцией With..End With можно, не указывая каждый раз имени объекта, изменять эти свойства.