Вычислите сумму элементов главной диагонали - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.5 из 5
Похожие ответы