Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера - VBA
Формулировка задачи:
Доброго времени суток,
просьба помочь в решении следующей задачи, по болезни полностью пропустила тему в универе.. Помогите нубу...
Заранее огромное спасибо!
Дана матрица вещественных чисел размером N на M. Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера.
Решение задачи: «Найти среднее арифметическое каждого из столбцов матрицы, имеющих четные номера»
textual
Листинг программы
Option Explicit Private Sub Macro_1000() Dim x, y, i&, j&, s$, ss$, res#, del& Do: x = InputBox("Введите размер матрицы X", , 5): Loop Until IsNumeric(x) Do: y = InputBox("Введите размер матрицы Y", , 5): Loop Until IsNumeric(y) ReDim matrix&(x, y) 'Заполняем матрицу разными числами от 0 до 99 Randomize s = "Построенная матрица:" & vbLf For i = 0 To y: For j = 0 To x If i + j = 0 Then s = s & " " & vbTab ElseIf i = 0 Then s = s & "Y" & j & vbTab ElseIf j = 0 Then s = s & "X" & i & vbTab Else matrix&(i, j) = Fix(Rnd * 100) s = s & matrix&(i, j) & "," & vbTab End If Next: s = s & vbLf: Next del = (y \ 2 + (y Mod 2)) 'За стролбцы берём Y For i = 1 To y Step 2: For j = 1 To x res = res + matrix&(i, j) Next ss = ss & "Среднее столбца Y" & i & " = " & res \ del & vbLf Next s = s & ss While MsgBox(s & vbLf & "Понравилась программа ?", 68) = vbNo Wend End End Sub