Одномерные массивы, задача

[sVa112]

Заданный массив С (n) целых чисел. Найти номер m первого четного элемента и подсчитать сумму первых m элементов, или номер m первого нечетного элемента и подсчитать разницу первых m элементов.Вариант расчета выбирается пользователем с помощью переключателей (OptionButton).

Помогите решить.

[sVa112]

Сделать это нужно в VBA

[sVa112]

Пример подобного задания:

Заданный массив целых чисел A (n). По желанию пользователя найти или наибольший элемент массива и его номер, или количество кратных числу 5 элементов массива.Вариант расчета выбирается пользователем с помощью переключателей (OptionButton).

Private Sub CommandButton1_Click()
Dim i As Integer, n As Integer, a() As Integer
Dim max As Single, k As Integer, mp As Integer
n = InputBox("ввести количество элементов массива a", "окно ввода n")
ReDim a(n)
k = 0: max = -10 ^ 5
For i = 1 To n
a(i) = InputBox("a(" & CStr(i) & ")=", "окно ввода элементов массива")
TextBox1.Text = TextBox1.Text & CStr(a(i)) & ", "
If OptionButton1.Value = True Then
If a(i) > max Then
max = a(i)
mp = i
End If
Else
If a(i) Mod 5 = 0 Then
k = k + 1
End If
End If
Next i
If OptionButton1.Value = True Then
Labe12.Caption = "наибольший элемент массива"
TextBox2.Text = CStr(max)
Labe13.Caption = "находится на месте"
TextBox3.Text = CStr(max)
Else
Labe12.Caption = "количество кратных 5"
TextBox2.Text = CStr(k)
End If
End Sub

[sVa112]

Как указать 1-го четного?

[Abstraction]

Как указать 1-го четного?

Э-э... идти по массиву до первого чётного, нет?