Imports System

Public Module Module1

    Public Sub Main()

        dim classsize,index as integer

        console.writeline("enter the number of students in the class")

        classsize=console.readline()

        dim studentnames(classsize) as string

        for index=0 to (classsize-1)

        console.writeline("enter name")

        studentnames(index)=console.readline()

    next

    console.writeline(studentnames(index))

    End Sub

End Module