Imports System

Public Module Module1

    Public Sub Main()

        Dim teachers(2) As String

        For i = 0 To 2

        Console.WriteLine("enter teacher's name")

        teachers(i) = Console.ReadLine()

    Next

    For i = 0 To 2

    Console.WriteLine(i+1 & " " & teachers(i))

Next

    End Sub

End Module