Суммирование строк в вба - VBA

Узнай цену своей работы

Формулировка задачи:

Как можно просуммировать строки матрицы согласно условию?

Решение задачи: «Суммирование строк в вба»

textual
Листинг программы
Sub Vlad999()
'Если в матрице хотя бы 1 элемент главной диагонали больше нуля,
'то нужно просуммировать строки, в которых расположены эти элементы.
Dim i%, n%, j%, S#
n = InputBox("Введите размерность массива", "ВВОД ДАННЫХ")
ReDim ms(1 To n, 1 To n) 'объявляем квадратный массив
'заполняем массив
For i = 1 To n
   For j = 1 To n
      Cells(i, j) = Int((100 - (-100) + 1) * Rnd + (-100))
      'ms(i, j) = Int((100 - (-100) + 1) * Rnd + (-100))
   Next
Next
For i = 1 To n
   If Cells(i, i) > 0 Then
   'If ms(i, i) > 0 Then
       For j = 1 To n
         S = S + Cells(i, j)
         'S = S + ms(i, j)
        Next
    End If
Next
SA = S / n
'If S Then MsgBox "S=" & S
MsgBox "Среднеарифметическое (SA) матрицы =" & SA
End Sub

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


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

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

15   голосов , оценка 4.067 из 5