Imports System

Public Module Module1

    Public Sub Main()

        dim numstu as integer 

        dim triplist(0 to numstu-1) as string

        dim payment(0 to numstu-1) as boolean 

        DO 

        console.writeline(" enter number of students going")

        numstu = console.ReadLine()

            'if statement checks that the numebr of students inputed does not go over 45 and if it isnt it rpeats the loop'

            if numstu > 45 then 

                console.writeline("error, maximum number of students is 45")

            end if 

            loop until  numstu <= 45 

        For i = 0 to numstu-1 

        console.writeline("enter students name")

        triplist(i)= console.readline

        console.writeline ("has student payed Y/N ?")

        payment(i) = console.readline

        next i  

    End Sub

End Module