Произведение элементов матрицы, расположенных на пересечении четных строк и четных столбцов - VBA
Формулировка задачи:
Помогите пожалуйста вычислить произведение тех элементов заданной матрицы A(10,10), которые расположены на пересечении четных строк и четных столбцов.
Написать программу нужно в VBA.
Решение задачи: «Произведение элементов матрицы, расположенных на пересечении четных строк и четных столбцов»
textual
Листинг программы
Sub Дракин() Dim i%, j%, n%, p& '-------------------- ActiveSheet.UsedRange.EntireRow.Delete Cells.Clear n = 10 ReDim a(1 To n, 1 To n) As Long Randomize For i = 1 To n For j = 1 To n a(i, j) = Int(2 * Rnd) + 1 Next Next Cells(1, 1).Resize(n, n) = a ' для зрительного восприятия выделяем э-ты красным цветом p = 1 For i = 2 To n Step 2 For j = 2 To n Step 2 If a(i, j) > 0 And iMod2 = 0 And jMod2 = 0 Then Cells(i, j).Font.Color = vbRed p = p * a(i, j) Cells(n + 2, 7) = p End If Next Next Cells(n + 2, 1) = " Произведение пересекающихся чётных элементов: p = " End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д