Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim numbers(0 To 5) As Integer

        For x = 0 To 5

            Console.Write("Enter a whole number: ")

            numbers(x) = Console.ReadLine

        Next

​

        For x = 0 To 5

            Console.WriteLine(numbers(x))

        Next

    End Sub

End Module

​