Imports System

Public Module Module1

    Public Sub Main()

        Dim strshark(4) as string

        strShark(0) = "Great White"

        strShark(1) = "Megladon"

        strShark(2) = "Tiger Shark"

        strShark(3) = "Hammerhead shark"

        strShark(4) = "Goblin Shark"

​

        Console.WriteLine(strShark(1))

        Console.WriteLine(strShark.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

        end sub

End Module