Работа с массивами в среде 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
