Imports System

Public Module Module1

    Public Sub Main()

        Dim teachers(3)  

        teachers(0) = ("Angione")

        teachers(1) = ("Asci") 

        teachers(2) = ("Smith") 

        teachers(3) = ("Jones")

        For i = 0 to 3

        Console.Writeline(teachers(i))

    next

    End Sub

End Module