Объясните, пожалуйста!

[Miriada11]

Задача довольно-таки простая, но информатика не та область, в которой я хорошо разбираюсь. Поэтому не могли бы Вы подсказать, как в Visual Basic рассчитать среднее арифметическое чётных чисел. Пользователь сам вводит границы числового интервала.

Comments

[.masa]

1. Пользователь вводит границы
2. Запускаете цикл, можно арифметический for с шагом 1
3. Проверяете, является ли текущее число четным, т.е. остаток от деления на 2 равен 0
4. В случае выполнения этого условия - накапливаете переменную суммы. Поскольку изначально количество чисел, для которых надо находить среднее неизвестно, увеличиваете на этом шаге переменную-счетчик четных на единичку
В противном случае ничего не делаете - переходите к следующему шагу алгоритма
5. Алгоритм выполняется до тех пор, пока в цикле счетчик не дойдет до высшей границе интервала. По выходу из цикла можно просто разделить переменную-сумму на количестве найденных четных элементов.

[Miriada11]

Option Base 1

Private Sub Command1_Click()
Dim B() As Long
Dim N As Integer
N = Val(InputBox("Введите размеренность от 1 до 10 массива", "Задача №1", "N"))
Select Case N
Case Is < 1
Exit Sub
Case Is <= 10
Dim average As Long
Dim even As Long
For x = 1 To N
ReDim Preserve B(x)
B(x) = Val(InputBox("Введите элемент B(" & x & ")", "Заполнение массива"))
If B(x) <> 0 Then
If B(x) Mod 2 = 0 Then
average = average + B(x)
even = even + 1
End If
End If
Next x
If even > 0 Then
MsgBox "среднее арифметическое четных чисел = " & average / even
Else
MsgBox "в массиве отсутствуют чётные числа"
End If
End Select
End Sub

[Miriada11]

Так что ли?