Найти сумму элементов на пересечении строк четной нумерации и столбцов нечетной нумерации в двумерном массиве

@Павел Юдаев · Регистрация: 18.01.2013

Здравствуйте. Помогите,пожалуйста,найти сумму элементов на пересечении строк четной нумерации и столбцов нечетной нумерации матрицы A()
Допишите программу

Visual Basic

Option Explicit
Sub A1()
Dim n%,m%,i%,j%,A!()
n=Cells(1,1)
m=Cells(1,2)
ReDim A(n,m)
For i=1 To n
For j=1 To m
A(i,j)=Cells(i+2,j+2)
Next j
Next i

Скрипт · 19.01.2013, 19:18

Павел Юдаев, у цикла For ... To ... Next есть ещё Step.

После Step укажите число 2. Начните цикл с двух. Будете идти по чётными элементам.

@Павел Юдаев · 19.01.2013, 20:16 **[ТС]**

Так?

Visual Basic

Option Explicit
 
Sub A1()
Dim n%, m%, j%, i%, A!(), s!
n = Cells(1, 1)
m = Cells(1, 2)
ReDim A(n, m)
For i = 1 To n Step 1
For j = 1 To m Step 1
A(i, j) = Cells(i + 2, j + 2)
Next j
Next i
s = 0
For i = 2 To n Step 2
For j = 1 To m Step 2
s = s + A(i, j)
Next j
Next i
Cells(10, 10) = s
End Sub

Скрипт · 19.01.2013, 20:25

Павел Юдаев, да, так.

Скрипт 5468 / 1148 / 50 Регистрация: 15.09.2012 Сообщений: 3,513
	19.01.2013, 19:18	2
	Павел Юдаев, у цикла For ... To ... Next есть ещё Step. После Step укажите число 2. Начните цикл с двух. Будете идти по чётными элементам. 1

Скрипт 5468 / 1148 / 50 Регистрация: 15.09.2012 Сообщений: 3,513
	19.01.2013, 20:25	4
	Павел Юдаев, да, так. 0

Опции темы