Вычислить сумму элементов ,имеющих четное значение - VB

Формулировка задачи:

Ребят помогите пожалуйста!Нужно Сформировать массив и вычислить сумму,имеющих четное значение. Я сделала только часть,но не знаю как вычислить сумму элементов,имеющих четное значение

Dim a(1 To 100) As Integer
Dim N As Integer
Dim I As Integer

Private Sub Command1_Click()
N = Text1.Text
For I = 1 To N
 a(I) = InputBox("Кол-во чисел" & I)
 Next I

End Sub
 
Private Sub Command2_Click()
Dim S As String
N = Text1.Text
S = ""
For I = 1 To N
 S = S & a(I) & "    "
 Next I
 Text3.Text = S
End Sub

Решение задачи: «Вычислить сумму элементов ,имеющих четное значение»

textual
                            Листинг программы 
                        

                            Dim S As Integer
N = Text1.Text
S = 0
For I = 1 To N
if a(I) mod 2 = 0 then S = S + a(I)
 Next I
 Text3.Text = S
 
        Label4.ForeColor = Color.Green
        Button3.ForeColor = Color.Green
        
        Label4.ForeColor = Color.Red
        Button3.ForeColor = Color.Red
                        

Оцени полезность:

9 голосов , оценка 3.889 из 5

Похожие ответы