Категория
Информатика
Тип
контрольная работа
Страницы
1 стр.
Дата
15.06.2013
Формат файла
.html — Html-документ
Архив
662151.zip — 1.83 kb
  • rabota-s-massivami-v-srede-visual-basic-for-application-vba_662151_1.html — 3.58 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

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



Контрольная работа №1

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



2005

Содержание

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

Массивы В 3

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

  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, 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



Ваше мнение



CAPTCHA