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