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

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

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

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

Массивы В 3

Задан одномерный массив Q (N). В данном массиве выполнить

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

Решение

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

Программный код:

Option Explicit

Sub pr21()

Dim a (20) As Integer

Dim n As Integer, i As Integer, i0 As Integer, s As Integer, j As Integer

Dim k As Integer, r As Integer

Dim max As Integer, imax As Integer

n = Val (InputBox («Введите N»))

For i = 1 To n

a (i) = Cells (1, i)

Next i

For i = 1 To n

If a (i) Mod 5 = 0 Then

a (i) = a (i) * 2

End If

If a (i) Mod 5 <> 0 Then

If a (i) Mod 2 <> 0 Then

a (i) = a (i) — 1

End If

End If

Next i

For i = 1 To n

Cells (3, i) = a (i)

Next i

max = -3200

For i = 1 To n

If a (i) > max Then

max = a (i)

imax = (i)

End If

Next i

Cells (5, 1) = «Max=»: Cells (5, 2) = max

For i = imax To n — 1

a (i) = a (i + 1)

Next i

n = n — 1

Cells (7, 1) = «Полученный массив»

For i = 1 To 14

Cells (8, i) = a (i)

Next i

For k = 1 To n — 1

For i = 1 To n — k

If a (i) < a (i + 1) Then

r = a (i)

a (i) = a (i + 1)

a (i + 1) = r

End If

Next i

Next k

Cells (10, 1) = «Упорядоченный массив»

For i = 1 To 14

Cells (11, i) = a (i)

Next i

s = 0

For i = 1 To n

If a (i) >= 0 Then

If a (i) Mod 2 = 0 Then

s = s + a (i)

End If

End If

Next i

Cells (13, 1) = «Сумма четных элементов =»: Cells (13, 4) = s

i = 1

While i <= n

If a (i) = a (i) Then

If a (i) Mod 11 = 0 Then

For j = n + 1 To i + 1 Step -1

a (j) = a (j — 1)

Next j

a (i) = s

n = n + 1

i = i + 2

Else

i = i + 1

End If

End If

Wend

n = n + 1

Cells (15, 1) = «Новый массив»

If i <= n Then

For i = 1 To n

Cells (16, i) = a (i)

Next i

i = i + 1

n = n + 1

End If

End Sub