Вычислить сумму элементов ,имеющих четное значение - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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