Суммирование строк в вба - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д