Сибірська Регіональна школа бізнесу
Контрольна робота № 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. p align="justify"> Програмний код:
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) = 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
