Imports System

Public Module Module1

    Public Sub Main()

        Dim iTempNotUsed(5) As Integer  'elements 0..5 (5 is the upper-bound)

'we can declare and initialize an array in a single statement:

Dim sBooze() As String = {"Fosters", "Kronenbourg", "Stella Artois", ""}

Dim x As Integer = 0

Dim iChoice As Integer = 0

'assign an value to an element of the array:

sBooze(3) = "Castlemaine"       ' the fourth element

For x = 0 To UBound(sBooze)     '0..3

    Console.WriteLine("Enter {0} for {1}", (x + 1), sBooze(x))

Next

iChoice = CInt(Console.ReadLine())

Console.WriteLine("A pint of {0} coming up!", sBooze(iChoice - 1))

Console.Write("Summary: ")

For Each beer As String In sBooze

    Console.Write("{0}, ", beer)

Next

Console.WriteLine()

​

    End Sub

End Module