Visual Basic for Application

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

Visual Basic for Application

1. Сформировать матрицу вида

Вычислить в этой матрице сумму четных элементов.

Вычислить максимум из нечетных элементов в каждой строке матрицы.

Вычислить произведение элементов в нечетных столбцах.

Вычислить количество четных элементов выше главной диагонали.

Решение матрица программа visual basic

Option Explicit

Sub pr22()

Dim a (10, 10) As Integer

Dim n As Integer, i As Integer, j As Integer, s As Integer, max As Integer

Dim t As Integer, k As Integer, p As Integer

n = Val (InputBox («Введите N»))

Range (Cells (1, 1), Cells (100, 100)).Select

Selection.Clear

For i = 1 To n

For j = 1 To n

If i + j = n + 1 Then a (i, j) = 1

If i = j Then a (i, j) = 1

If i < j And i + j < n + 1 Then a (i, j) = 3

If i < j And i + j > n + 1 Then a (i, j) = 2

If i > j And i + j > n + 1 Then a (i, j) = 3

If i > j And i + j < n + 1 Then a (i, j) = 2

Next j

Next i

Cells (1, 1) = «Полученная матрица»

For i = 1 To n

For j = 1 To n

Cells (i + 1, j) = a (i, j)

Next j

Next i

s = 0

For i = 1 To n

For j = 1 To n

If a (i, j) Mod 2 = 0 Then

s = s + a (i, j)

End If

Next j

Next i

Cells (9, 1) = «Сумма четных элементов=»: Cells (9, 4) = s

For i = 1 To n

max = -3200

If a (i, j) > max Then max = a (i, j)

For j = 1 To n

If a (i, j) Mod 2 <> 0 Then

If a (i, j) > max Then max = a (i, j)

Cells (11, 1) = «Максимум из нечетных элементов в каждой строке:»: Cells (11, i + 5) = max

End If

Next j

Next i

k=0

For i = 1 To n

For j = 1 To n

If a (i, j) Mod 2 = 0 Then

k = k + 1

End If

Next j

Next i

t = k / 2

Cells (16, 1) = «Количество четных элементов выше главной диагонали =»: Cells (16, 7) = t

For j = 1 To n

p = 1

For i = 1 To n

If a (i, j) > 0 Then p = p * a (i, j)

Next i

Cells (13, 1) = «Произведение элементов в нечетных столбцах:»: Cells (14, j) = p

j = j + 1

Next j

End Sub