Сформулировать массив B(), состоящий из четных чисел массива A()

Visual Basic .NET :) Imports System.Console Module Module1     Sub Main()         Dim Rnd As Random = New Random()         Dim A(5), B(5) As Integer         Dim k As Integer         Dim i As Byte         For i = 0 To A.Length - 1             A(i) = Rnd.Next()             WriteLine("A({0}) => {1}", i, A(i))         Next         WriteLine()         i = 0         For Each k In A             If (k Mod 2 = 0) Then                 B(i) = k                 i = i + 1             End If         Next         For k = 0 To i - 1             WriteLine("B({0}) => {1}", k, B(k))         Next         ReadKey(False)     End Sub End Module