Найти сумму элементов в главной и побочной диагоналях матрицы - VB
Формулировка задачи:
здравствуйте, помогите пожалуйста, завтра надо и экзамен сдавать и курсовую сдавать, а я с курсовой не успеваю, условие задачи такое: заполнить рандомно цифрами матрицу квадратную и найти сумму элементов в главной и побочной диагонали. очень прошу помогите!
Решение задачи: «Найти сумму элементов в главной и побочной диагоналях матрицы»
textual
Листинг программы
Option Explicit Dim A() As Integer, n As Integer, m As Integer Private Sub Command1_Click() Dim i As Integer, j, Gl, Pob As Integer Randomize 'Иницилизация генератора случайных чисел Me.Cls 'Очищаем форму m = InputBox("Введите число строк", , 10) n = InputBox("Введите число столбцов", , 10) ReDim A(1 To m, 1 To n) ' Размеры матрицы А - m-строк, n-столбцов For i = 1 To m For j = 1 To n A(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами Print A(i, j); vbTab; Next j Print Next i Print For i = 1 To m For j = 1 To n If i = j Then Gl = Gl + A(i, j) If i = m - j + 1 Then Pob = Pob + A(i, j) Next j Print Next i Print "Сумма элементов главной диагонали = " & Gl Print "Сумма элементов побочной диагонали = " & Pob End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д