Imports System

​

Public Module Module1

    Dim xNumero (20) as Integer

    Public Sub Main()

        Dim numPar as Integer = 0

        For i = 1 To xNumero.Length-1

        If xNumero(i) = 0

            xNumero(i) = i          

        End if  

        Next

        For j = 1 To xNumero.Length-1       

            IF (xNumero(j) Mod 2 = 0)

                Console.WriteLine(xNumero(j))

            End If

        Next

    End Sub

End Module