A.For i=0 T0 4 If a(i)Mod 2<>0 Then b=b+1 End lf Next i Label1.Caption=b
B.For i=0 To 4 If a(i)Mod2=0 Then b=b+1 End lf Next i Label1.Caption=b
C.For i=1 To 5 If a(i)Mod 2 ◇Then b=b+1 End lf Next i Label1.Caption=b
D.For=0 To 5 If a(i)Mod 2=0 Then b=b+1 End lf Next i Label1.Caption=b