Составьте программу вычисления суммы элементов двумерного массива - VBA
Формулировка задачи:
1) Составьте программу вычисления суммы тех положительных Элементов двумерного массива А, которые стоят в строках не содержащих нулевых элементов .
2) ...
Решение задачи: «Составьте программу вычисления суммы элементов двумерного массива»
textual
Листинг программы
Option Base 1
Option Explicit
Sub Zaikaza()
Dim A&(), W&, H&, R&, C&, S1&, S&
Cells.ClearContents
H = InputBox("Высота массива", , 10)
W = InputBox("Ширина массива", , 10)
ReDim A(H, W)
For R = 1 To H
S1 = 0
For C = 1 To W
A(R, C) = Int(Rnd * 21 - 10)
If A(R, C) = 0 Then S1 = 0: Exit For
S1 = S1 + A(R, C)
Next
Cells(R, W + 2) = S1
S = S + S1
Next
Range(Cells(1, 1), Cells(H, W)) = A
Cells(H + 2, W + 2) = S
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д