Imports System

Public Module Module1

    Public Sub Main()

        Dim strMedals(4) As String

        strMedals(0) = "Bronze"

        strMedals(1) = "Silver"

        strMedals(2) = "Gold"

        strMedals(3) = "Platinum"

        strMedals(4) = "Diamond"

        Console.WriteLine(strMedals(0))

        Console.WriteLine(strMedals.Length)

        dim x as integer

        dim intArray() as integer = {2,4,6,8,10}

        Do While x <intArray.Length

            Console.WriteLine(intArray(x))

            x += 1

        Loop

        Do While x <intArray.Length

            Console.WriteLine(intArray(x))

            x -= 1

        Loop

        For i As Integer = 0 To intArray.Length -1

        Console.WriteLine(intArray(i))

        Next

    For Each intNum As Integer in intArray

    Console.WriteLine(intNum)

    Next intNum

    End Sub

End Module