Курсовая работа: Разработка программного модуля который находит сумму угловых элементов матрицы и сумму элементов

Программа разработана в приложении Microsoft Excel на языке программирования Visual Basic For Application.

Private Sub BtbTask2_Click()

Dim a(1 To 100, 1 To 100) As Variant

Dim summ As Integer

n = TextBoxInput.Value

For i = 1 To n

For j = 1 To n

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

summ = summ + Check_Top_Elements(a(i, j), i, j)

Next j

Next i

m = Application.CountA(Range("A:A"))

Cells(m + 3, 1) = "Сумма элементов над главной диагональю: " + CStr(summ)

TextBoxOutput2.Value = CStr(summ)

End Sub

Private Sub BtnTask1_Click()

Dim a(1 To 100, 1 To 100) As Variant

Dim summ As Integer

n = TextBoxInput.Value

For i = 1 To n

For j = 1 To n

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

summ = summ + Check_Angular_Elements(a(i, j), i, j)

Next j

Next i

m = Application.CountA(Range("A:A"))

Cells(m + 2, 1) = "Сумма угловх элементов: " + CStr(summ)

TextBoxOutput.Value = summ

End Sub