Visual Basic for Application
Сибирская Региональная школа бизнеса
Контрольная работаBasic for Application
1. Сформировать матрицу вида
1333121312221222131213331
- Вычислить в этой матрице сумму четных элементов.
- Вычислить максимум из нечетных элементов в каждой строке матрицы.
- Вычислить произведение элементов в нечетных столбцах.
- Вычислить количество четных элементов выше главной диагонали.
Решение
матрица программа visual basic
Option Explicitpr22()a(10, 10) As Integern As Integer, i As Integer, j As Integer, s As Integer, max As Integert As Integer, k As Integer, p As Integer= Val(InputBox("Введите N"))(Cells(1, 1), Cells(100, 100)).Select.Cleari = 1 To nj = 1 To ni + j = n + 1 Then a(i, j) = 1i = j Then a(i, j) = 1i < j And i + j < n + 1 Then a(i, j) = 3i < j And i + j > n + 1 Then a(i, j) = 2i > j And i + j > n + 1 Then a(i, j) = 3i > j And i + j < n + 1 Then a(i, j) = 2ji(1, 1) = "Полученная матрица"i = 1 To nj = 1 To n(i + 1, j) = a(i, j)ji= 0i = 1 To nj = 1 To na(i, j) Mod 2 = 0 Then= s + a(i, j)Ifji(9, 1) = "Сумма четных элементов=": Cells(9, 4) = si = 1 To n= -3200a(i, j) > max Then max = a(i, j)j = 1 To na(i, j) Mod 2 <> 0 Thena(i, j) > max Then max = a(i, j)(11, 1) = "Максимум из нечетных элементов в каждой строке:": Cells(11, i + 5) = max
End Ifji=0i = 1 To nj = 1 To na(i, j) Mod 2 = 0 Then= k + 1Ifji= k / 2(16, 1) = "Количество четных элементов выше главной диагонали =": Cells(16, 7) = t
For j = 1 To n= 1i = 1 To na(i, j) > 0 Then p = p * a(i, j) i
Cells(13, 1) = "Произведение элементов в нечетных столбцах:": Cells(14, j) = p
j = j + 1jSub
Больше работ по теме:
Контрольная работа
Алгоритм синтеза автомата
Контрольная работа
Анализ разработки базы данных
Контрольная работа
Анализ основных показателей финансово-экономической деятельности промышленных предприятий с помощью использования функции базы данных
Контрольная работа
Выполнение работ по оборудованию мультимедийного класса
Контрольная работа
Предмет: Информационное обеспечение, программирование
Тип работы: Контрольная работа
Новости образования
22 Июля 2016 16:26
Более 70 представителей крупных вузов АСЕАН подтвердили участие в форуме во Владивостоке
22 Июля 2016 12:51
Абызов: публикация первичных статсведений снизит бюрократическую нагрузку на школы
22 Июля 2016 11:53
В Чечне свыше 200 школьников сдали ЕГЭ с результатом свыше 90 баллов - министр
22 Июля 2016 05:36
Замглавы Минобрнауки РФ: задача сократить число людей с высшим образованием не стоит
21 Июля 2016 20:19
КОНТАКТНЫЙ EMAIL: [email protected]
Скачать реферат © 2017 | Пользовательское соглашение
ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ