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

Программа обработки одномерного массива средствами Visual Basic for Application (VBA) на предмет преобразования, печати, удаления, сортировки, поиска сумм, положительных, чётных элементов, их кратности и дополнения другими элементами и значениями данных.

Рубрика Программирование, компьютеры и кибернетика
Вид контрольная работа
Язык русский
Дата добавления 07.10.2012
Размер файла 12,3 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

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

Контрольная работа №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 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

Размещено на Allbest.ru


Подобные документы

  • Visual Basic for Application. Объекты и коллекции. Использование VBA в среде Access. Основы современной технологии проектирования АИС. Автоматизированное проектированиеCASE-технологий. Реинжиниринг бизнес-процессов и проектирование корпоративной ИС.

    курсовая работа [2,1 M], добавлен 22.02.2008

  • Характеристика мови програмування VBA (Visual Basic for Application): можливості й засоби. Використання редактора Visual Basic. Створення та виконання VBA-програм. Типи даних, змінні й константи, операції й вирази. Керуючі оператори, процедури й функції.

    реферат [29,9 K], добавлен 28.06.2011

  • Формирование матрицы и выполнение заданий: вычисление сумы четных элементов; максимума из нечетных элементов в строке; произведение элементов в нечетных столбцах; количество четных элементов выше главной диагонали. Создание программы в Visual Basic.

    контрольная работа [12,0 K], добавлен 07.10.2012

  • Решение экономических задач с помощью Microsoft Excel и инструментария Visual Basic For Application. Способы запуска редактора Visual Basic, правила его синтаксиса. Создание автоматических макросов по сортировке и выборке. Создание управляющих кнопок.

    курсовая работа [852,0 K], добавлен 24.09.2010

  • Программный проект Баз данных средствами Visual Basic 6.0. Проектирование структуры таблицы базы данных Visual Basic 6.0. Заполнение созданных таблиц БД исходными данными. Создание пользовательского меню. Вид формы и свойства элементов управления.

    курсовая работа [3,0 M], добавлен 19.06.2010

  • Характеристика системы программирования Visual Basic For Application. Автоматизация подписки на газеты и журналы, а так же их учёт. Связь между сходными документами, Базой данных и выходными документами. Встроенные объекты MS Access, методы и свойства.

    курсовая работа [350,8 K], добавлен 22.09.2012

  • Составление блок-схемы алгоритма решения задачи, погрешности вычисления суммы членов числового ряда. Разработка программ на языке на Visual Basic, работа с массивами. Особенности работы со строковыми данными. Варианты реализации формы приложения.

    контрольная работа [220,4 K], добавлен 18.06.2010

  • Напівфункціональна мова програмування, складова частина Access - Visual Basic for Applications (VBA). Створення коду VBA за допомогою майстрів елементів управління. Модулі, створення процедур обробки подій. Редагування у вікні модуля, аргументи процедури.

    реферат [144,8 K], добавлен 31.08.2009

  • Язык программирования Visual Basic: краткая история возникновения, значение и общая характеристика. Изучение основных свойств Visual Basic, синтаксис языка. Обзор ключевых операторов Visual Basic, пользовательские процедуры и функции данного языка.

    контрольная работа [36,4 K], добавлен 23.07.2014

  • Рабочая среда Visual Basic (VB) и ее основные компоненты. Ввод и вывод данных в VB. Объявление переменных и констант в программе. Создание и работа с процедурами и функциями, их виды. Организация ветвления в VB. Использование циклов в программировании.

    практическая работа [502,5 K], добавлен 26.10.2013

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.