Imports System

Public Module Module1

    Public Sub Main()

        Dim FirstName(45) As String

        Dim LastName(45) As String

        Dim PaidStatus(45) As Boolean

        For i = 1 to 45

        Console.WriteLine("Enter first name" & i)

        FirstName(i) = Console.ReadLine()

        Console.WriteLine("Enter last name" & i)

        LastName(i) = Console.ReadLine()

        Console.WriteLine("Enter paid status" & i)

        PaidStatus(i) = Console.ReadLine()

    Next

    For x = 1 to 45

    If PaidStatus(x) = True then

        Console.WriteLine(FirstName(x) & "" & LastName(x))

    End If

Next

    End Sub

End Module