кол-во страниц на усмотрение автора Содержание Оснавная часть-описание проделанной работы: -Задание на курсовую работу -Описание переменных -Блок-схема - Описание алгоритма -Листин программы - Описание входных данных и результат вычислений *проверка работы программы на всех нулях *проверка работы программы на всех единицах *произвольная проверка Список используемой литературы Также прикрепляю учебное издание по которому учимся, в нем предствлены образец блок схем, описание, примеры (прошу ознакомится, так как основной учебный материал, это учебное пособие), и сообственно само задание. Спасибо.

Работа с массивами в среде Visual Basic for Application (VBA)

Сибирская Региональная школа бизнеса

Контроль работы нет. 1

Дисциплина: Visual Basic for Application (VBA)

2005

Содержание

одномерный массив в vba

array В 3

Задан одномерный массив Q(N). В этой картине run

1. Увеличить все кратные пяти элементов массива в два раза, а нечетные уменьшить на единицу. Полученный массив распечатать
2. Удалить из вновь образованного массива максимальный элемент. Массив распечатать
3. Элементы полученного массива расположить в порядке убывания. Массив распечатать
4. В новый формат последовательности для расчета суммы, кажется, положительных элементов и вставить это значение перед каждым элементом, кратным одиннадцати. Значение и новый формат массива распечатать

Решение

В ячейке Excel, введите следующие числа (12, 5, 21, 15, 20, 55, -13, 75, 23, 45, 100, 92, 2, -4, 6 ), откройте окно кода и введите следующую программу. N=15.

код:

Option Explicitpr21()a(20) As Integern As Integer, i As Integer, 0 As Integer, s As Integer, j As Integerk As Integer, r As Integermax As Integer, imax As Integer= Val(InputBox(&';Введите N&';))i = 1 To n(i) = Cells(1, i)ii = 1 To na(i) Mod 5 = 0, То(i) = a(i) * 2Ifa(i) Mod 5 <> 0 Thena(i) Mod 2 <> 0, То(i) = a(i) - 1IfIfii = 1 To n(3, i) = a(i)i= -3200i = 1 To na(i) > max Then= a(i)= (i)I(5, 1) = &';Макс=&';: Cells(5, 2) = maxi = imax To n - 1(i) ^ % ^ (i 1)i= n - 1(7, 1) = ='&Полученный массив; ' & ^ % ^ 1 To 14(8, i) = a(i)ik = 1 To n - 1i = 1 To n - ka(i) =lt; (i 1), То& (i)(i) ^ % ^ (i 1) i 1) = rIfik(10, 1) = =далее=Упорядоченного массива; ' & ^ % ^ 1 To 14(11, i) ^ % ^ (i)i= 0i = 1 To na(i) =gt=; 0 Thena(i) Mod 2 & 0, То= s(i)IfIfi(13, 1) = =далее=Сумма волос элементов, ;"=: Cells(13, 4) ; s& 1i =lt=; na(i) ^ % ^ (i) Thena(i) Mod 11 = 0 Thenj = n-1 To i-1 Step -1(j) = a(j - 1)j(i) = s= n 1= i 2= i 1IfIf = n 1