Работа с массивами в среде Visual Basic for Application (VBA)
Сибирская Региональная школа бизнеса
Контрольная работа №1
Дисциплина: Visual Basic for Application (VBA)
2005
Содержание
одномерный массив vba
Массивы В 3
Задан одномерный массив Q(N). В данном массиве выполнить
- Увеличить все кратные пяти элементы массива в два раза, а нечётные уменьшить на единицу. Полученный массив распечатать
- Удалить из вновь образованного массива максимальный элемент. Массив распечатать
- Элементы полученного массива расположить по убыванию. Массив распечатать
- Во вновь образованной последовательности вычислить сумму чётных положительных элементов и вставить это значение перед каждым элементом, кратным одиннадцати. Значения суммы и вновь образованного массива распечатать
Решение
В ячейки 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, i0 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 Then(i) = a(i) * 2Ifa(i) Mod 5 <> 0 Thena(i) Mod 2 <> 0 Then(i) = a(i) - 1IfIfii = 1 To n(3, i) = a(i)i= -3200i = 1 To na(i) > max Then= a(i)= (i)Ifi(5, 1) = "Max=": Cells(5, 2) = maxi = imax To n - 1(i) = a(i + 1)i= n - 1(7, 1) = "Полученный массив"i = 1 To 14(8, i) = a(i)ik = 1 To n - 1i = 1 To n - ka(i) < a(i + 1) Then= a(i)(i) = a(i + 1)(i + 1) = rIfik(10, 1) = "Упорядоченный массив"i = 1 To 14(11, i) = a(i)i= 0i = 1 To na(i) >= 0 Thena(i) Mod 2 = 0 Then= s + a(i)IfIfi(13, 1) = "Сумма четных элементов =": Cells(13, 4) = s= 1i <= na(i) = a(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
Cells(15, 1) = "Новый массив"
If i <= n Theni = 1 To n(16, i) = a(i)i= i + 1= n + 1IfSub
Больше работ по теме:
Контрольная работа
Разработка подсистемы приема и учета выполнения заказов на доставку пиццы на дом по городу
Контрольная работа
Разработка программной реализации криптографического алгоритма ГОСТ 28147-89 в режиме гаммирования с обратной связью
Контрольная работа
Расчёт на ЭВМ характеристик выходных сигналов электрических цепей
Контрольная работа
Синтез комбинационной схемы и проектирование управляющего автомата Мура
Контрольная работа
Предмет: Информационное обеспечение, программирование
Тип работы: Контрольная работа
Новости образования
22 Июля 2016 16:26
Более 70 представителей крупных вузов АСЕАН подтвердили участие в форуме во Владивостоке
22 Июля 2016 12:51
Абызов: публикация первичных статсведений снизит бюрократическую нагрузку на школы
22 Июля 2016 11:53
В Чечне свыше 200 школьников сдали ЕГЭ с результатом свыше 90 баллов - министр
22 Июля 2016 05:36
Замглавы Минобрнауки РФ: задача сократить число людей с высшим образованием не стоит
21 Июля 2016 20:19
КОНТАКТНЫЙ EMAIL: [email protected]
Скачать реферат © 2017 | Пользовательское соглашение
ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ