Двухмерные массивы VBA

[Nataly1992]

Здравствуйте опять)
Снова нужна ваша помощь
Задача
Дан двухмерные массив Х размеров mxn(m строчек, n столбцов)
Вычеслить среднее арифметическое елментов каждого столпца, которые больше за ноль

Буду благодарна за помощь

[Nataly1992]

На паре была вот такая вот задача:
Дан двухмерные массив Х размеров mxn(m строчек, n столбцов)
Найти суму квадратов элементов, которые находятся на диагоналях(m=n)

Вот так вот програмировали
n = InputBox("VVedite n")
m = InputBox("Vvedite m")
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("Vvedite A(" & i & "," & j & ")")
Next j
Next i
For i = 1 To n
For j = 1 To m
Cells(2 + i, 2 + j).Value = a(i, j)
Next j
Next i
For i = 1 To n
For j = 1 To m
If i = j Then
S = S + a(i, j) ^ 2
End If
Next j
Next i
Cells(4 + n, 4 + m).Value = S


Что в нем можно заменить, чтобы вышла задача из первого сообщения?

[Sasha_Smirnov]

Сообщение от Nataly1992

Здравствуйте опять)
...елментов каждого столпца, которые больше за ноль

1) "больше за ноль" = "больше нуля"?

2) а массив откуда считывать? из таблицы? или с клавиатуры его ввести?

И что именно у вас не выходит? Только ввод массива — это уже непросто! Что у вас не получается?

[Nataly1992]

1) Да, больше нуля
2) Ввести из клавиатуры..

Я бы не обращалась, но у меня ничего не получается...

[Nataly1992]

Я не понимаю, как написать вычисление среднего арифметического этих елементов

[Nataly1992]

понимаете, нам ничего не обьясняют на занятиях. Вот поэтому нужно самому все делать. У меня до массивов у меня все получалось, а вот с массивами роблемы

[Sasha_Smirnov]

Эти элементы надо сложить и полученную сумму разделить на число элементов.
Только учтите, что их (которые > 0) в каком-то столбце может и не быть. Понятно это?

3) в примере у Вас результат выводится в таблицу, что ли?

Сообщение от Nataly1992

понимаете, нам ничего не обьясняют на занятиях

А как (и где) писать программы — это хотя бы вам сказали?

(Я не уверен, что нужно объяснять арифметическое среднее, например, старшеклассницам. Это начальная школа!)

Сообщение от Nataly1992

а как это прописать?

В цикле, как в примере.

if a(i, j) > 0 then S = S + a(i, j)

для i от 1 до n. Затем эту сумму (если она > 0) разделить на n, иначе выдать сообщение:

В столбце j элементов > 0 нет.

Элементарно же! Подождите, я ваш код испытаю в среде VBA. Это минут 15 надо.

[Nataly1992]

а как это прописать?
3) да

[Serebro]

For j = 1 To m
  s=0.0
  number=0
  For i = 1 To n
    if x(i,j)>0.0 then
      s=s+x(i,j)
      number=number+1
    end if
  Next i
  sa(j)=s/number        rem среднее арифметическое элементов >0 по столбцам
Next j

[Nataly1992]

Сообщение от Sasha_Smirnov

Эти элементы надо сложить и полученную сумму разделить на число элементов.
Только учтите, что их (которые > 0) в каком-то столбце может и не быть. Понятно это?

3) в примере у Вас результат выводится в таблицу, что ли?


А как (и где) писать программы — это хотя бы вам сказали?

(Я не уверен, что нужно объяснять арифметическое среднее, например, старшеклассницам. Это начальная школа!)

ну понятно что не нужно обьяснять)))
НАм обясняют все на Вижуал Бейсике. Мы заходим через Excell и делаем по методичке, но очень простіе задачки. А домой задают посложнее