Imports System

Public Module Module1

    Public Sub Main()

    Dim teachers(2) As String

For i = 0 To 2

Console.WriteLine( “enter teachers name” )

teachers(i) = Console.ReadLine()

Next

For i = 0 To 2

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

Next 

​

    End Sub

End Module