Вычислите сумму элементов главной диагонали - VB
Формулировка задачи:
помогите составить программу
Дан массив R(5X5) вычислите сумму элементов главной диагонали
Заранее спасибо
Решение задачи: «Вычислите сумму элементов главной диагонали»
textual
Листинг программы
Private Sub cmdStart_Click() Dim iI As Integer Dim dMatrix(1 To 5, 1 To 5) As Double ' это чтоб не думалось Dim dDiagonal As Double ' ' Заполняем матрицу. dMatrix(1, 1) = 1.2 dMatrix(1, 2) = 5.7 dMatrix(1, 3) = 11.82 dMatrix(1, 4) = 21.02 dMatrix(1, 5) = 10.02 ' dMatrix(2, 1) = 1.2 dMatrix(2, 2) = 15.7 dMatrix(2, 3) = 11.8 dMatrix(2, 4) = 21.02 dMatrix(2, 5) = 0.02 ' dMatrix(3, 1) = 1.2 dMatrix(3, 2) = 5.7 dMatrix(3, 3) = 1.82 dMatrix(3, 4) = 21.02 dMatrix(3, 5) = 10.02 ' dMatrix(4, 1) = 1.2 dMatrix(4, 2) = 5.7 dMatrix(4, 3) = 11.82 dMatrix(4, 4) = 21.02 dMatrix(4, 5) = 10.02 ' dMatrix(5, 1) = 1.2 dMatrix(5, 2) = 5.7 dMatrix(5, 3) = 11.82 dMatrix(5, 4) = 21.02 dMatrix(5, 5) = 3.02 ' Ввод Вы уж сами как-нибудь. ' ' Считаем в цикле. dDiagonal = 0 ' это уж чтоб совсем не думалось - думать вредно For iI = LBound(dMatrix, 1) To UBound(dMatrix, 1) Step 1 dDiagonal = dDiagonal + dMatrix(iI, iI) Next iI MsgBox "Matrix Diagonal=" + Format$(dDiagonal, "#####0.###"), vbInformation End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д