Найти сумму элементов чётных строк матрицы - VB
Формулировка задачи:
Дан двумерный массив А(м*н), найти сумму элементов чётных строк.
Подскажите, пожалуйста, нет ли у кого примера по данной теме?
Решение задачи: «Найти сумму элементов чётных строк матрицы»
textual
Листинг программы
Private Sub Command1_Click()
Dim m As Integer, n As Integer, i As Integer, j As Integer
Dim A() As Double, sum As Double
Cls
Randomize
AutoRedraw = True
m = InputBox("Введите количество строк m = ", "Ввод данных", 5)
n = InputBox("Введите количество столбцов n = ", "Ввод данных", 4)
ReDim A(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
A(i, j) = InputBox("Введите A(" & i & "," & j & ") =", "Ввод данных", Int(Rnd * 10))
Print vbTab; A(i, j);
Next j
Print
Next i
Print
For i = 2 To m Step 2
For j = 1 To n
sum = sum + A(i, j)
Next j
Next i
Print "Сумма элементов в чётных строках матрицы равна " & sum
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д