Посчитать сумму чисел на главной диагонали матрицы - VB
Формулировка задачи:
задание состоит в том что нужно:
заполнить таблицу строками m и столбцами n при помощи InputBox
потом посчитать сумму чисел на главной диагонали
вот что получилось,а как посчитать по диагонали я не могу понять
Решение задачи: «Посчитать сумму чисел на главной диагонали матрицы»
textual
Листинг программы
Private Sub Command1_Click() Dim i As Integer, j As Integer, n As Integer, sum As Integer, A() As Integer n = InputBox("Введите размер матрицы", "Ввод данных", 3) ReDim A(1 To n, 1 To n) For i = 1 To n For j = 1 To n A(i, j) = InputBox("Ведите значение элемента A(" & i & "," & j & ")", _ "Ввод данных") If i = j Then sum = sum + A(i, j) Print A(i, j); vbTab; Next j Print Next i Print "Сумма элементов главной диагонали = " & sum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д