-
Курсовая работаИнформатика
- Курсовая работа на тему "visual basic" по предмету информатика
-
1 750 руб.21.12.2011
Работа с массивами в среде Visual Basic for Application (VBA)
Сибирская Региональная школа бизнеса
Контроль работы нет. 1
Дисциплина: Visual Basic for Application (VBA)
2005
Содержание
одномерный массив в vba
array В 3
Задан одномерный массив Q(N). В этой картине run
- Увеличить все кратные пяти элементов массива в два раза, а нечетные уменьшить на единицу. Полученный массив распечатать
- Удалить из вновь образованного массива максимальный элемент. Массив распечатать
- Элементы полученного массива расположить в порядке убывания. Массив распечатать
- В новый формат последовательности для расчета суммы, кажется, положительных элементов и вставить это значение перед каждым элементом, кратным одиннадцати. Значение и новый формат массива распечатать
Решение
В ячейке 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, 0 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, То(i) = a(i) * 2Ifa(i) Mod 5 <> 0 Thena(i) Mod 2 <> 0, То(i) = a(i) - 1IfIfii = 1 To n(3, i) = a(i)i= -3200i = 1 To na(i) > max Then= a(i)= (i)I(5, 1) = &';Макс=&';: Cells(5, 2) = maxi = imax To n - 1(i) ^ % ^ (i 1)i= n - 1(7, 1) = ='&Полученный массив; ' & ^ % ^ 1 To 14(8, i) = a(i)ik = 1 To n - 1i = 1 To n - ka(i) =lt; (i 1), То& (i)(i) ^ % ^ (i 1) i 1) = rIfik(10, 1) = =далее=Упорядоченного массива; ' & ^ % ^ 1 To 14(11, i) ^ % ^ (i)i= 0i = 1 To na(i) =gt=; 0 Thena(i) Mod 2 & 0, То= s(i)IfIfi(13, 1) = =далее=Сумма волос элементов, ;"=: Cells(13, 4) ; s& 1i =lt=; na(i) ^ % ^ (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
Узнать стоимость работы
Как сделать заказ?
Работа выполнена замечательно, как нужно и написана чуть раньше срока, что замечательно. Курсовая состояла из двух частей, автор написал так, как требовалось. Огромнейшее спасибо автору!!!
Отличный эксперт, честно выполняющий заказы четко согласно требованиям
Задача автора была решить задания, автор с задачей справился. В некоторых местах подправил слова, но это не критично. Самое главное - решение. Работа была выполнена раньше положенного срока, я был приятно удивлен.
Заказала одну работу в хоумворк, другую- на похожем сайте. Здесь делают все правки вовремя, ты отправляешь файл с доработками - они же и работают в этом файле; конкуренты, к сожалению, так не делают и получается неразбериха. Смело заказывайте здесь: удобно, гарантировано и качественно! Жаль, что раньше не знала про этот сайт.
Спасибо большое за помощь! Я так красиво и грамотно писать никогда не умела) Еще обращусь по поводу вкр)
Спасибо автору за соблюдение сроков и всех требований по работе!