Вычислить сумму элементов, расположенных над главной диагональю матрицы - VB
Формулировка задачи:
здравствуйте очень нужна помощь вот в этом задании: Даны две матрицы А(n,n) и В(m,m). Для каждой вычислить сумму элементов, расположенных над главной диагональю(с помощью процедуры)
через этот код у меня не получается я не знаю в чем ошибка подскажите пожалуйста
Решение задачи: «Вычислить сумму элементов, расположенных над главной диагональю матрицы»
textual
Листинг программы
Dim a() As Integer, B() As Integer Private Sub ComA_Click() Form1.Cls Dim i As Byte, j As Byte, n As Integer n = InputBox("Введите количество строк и столбцов в массиве A", "Ввод") ReDim a(1 To n, 1 To n) As Integer Print: Print: Print "Массив А:" For i = 1 To n For j = 1 To n a(i, j) = Rnd * 10 - 5 Print a(i, j); Print vbTab; Next j Print Next i l = UBound(a) sum = 0 For i = 1 To l - 1 For j = i + 1 To l sum = sum + a(i, j) Next j Next i Print "сумма над диоганалы=" Print sum ''''''''''''''''''''''''''''''''''''''''''''''''2-oy massiv nachinaetsya m = InputBox("Введите количество строк и столбцов в массиве B", "Ввод") ReDim B(1 To m, 1 To m) As Integer Print: Print: Print "Массив B:" For i = 1 To m For j = 1 To m B(i, j) = Rnd * 10 - 5 Print B(i, j); Print vbTab; Next j Print Next i l = UBound(B) sum = 0 For i = 1 To l - 1 For j = i + 1 To l sum = sum + B(i, j) Next j Next i Print "сумма над диоганалы=" Print sum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д