Сибірська Регіональна школа бізнесу
Контрольна работа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 n + 1 Then a (i , j) = 2i> j And i + j> n + 1 Then a (i, j) = 3i> j And 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
