Imports System

​

Public Module Module1

​

    Public Sub Main()

        'Task 1

        Dim sCoach as integer = 550

        Dim sTicket as integer = 30

        Dim rPrice as decimal

        Dim nStudents as integer

        Dim nFree as decimal

        Dim nPaidMoney as integer

        Dim nTotalCost as integer

        Dim i as integer = 0

        Console.Writeline("Enter the estimated number of student going on the trip")

        nStudents = Console.ReadLine()

        If nStudents <= 0 or nStudents > 45

            Do until nStudents > 0 and nStudents < 46

                Console.Writeline("Please enter a valid number")

                nStudents = Console.ReadLine()

            Loop

        End if

​

        nFree =(nStudents \ 10) * sTicket

        nTotalCost = sCoach + (sTicket * nStudents) - nFree

        rPrice = nTotalCost / nStudents

        Console.WriteLine("The recomended price for the trip is at least $" & Math.Round(rPrice, 0) & " per student")

        'Task 2

        Dim sNames(44) as string

        Dim nPaid(44) as string

        nStudents = 0

        Console.Writeline("Enter the name of the student, if finished enter 'finished'")

            sNames(i) = Console.Readline

        Do While i < 45

        If sNames(i) = -1 

                i = "finished"

        Else

            Console.Writeline("Have they paid?")

            nPaid(i) = Console.Readline

            If nPaid(i) <> "Yes" or nPaid(i) <> "No" or nPaid(i) <> "no" or nPaid(i) <> "yes"

                Do until nPaid(i) = "Yes" or nPaid(i) = "No" or nPaid(i) = "no" or nPaid(i) = "yes"

                    Console.WriteLine("Please enter 'Yes' or 'No'")

                    nPaid(i) = Console.Readline

                Loop

​

                If nPaid(i) = "Yes" or nPaid(i) = "yes"

                    nPaid(i) = "Paid"

                    nPaidMoney += 1

                    nStudents += 1

                Else

                    nPaid(i) = "Not Paid"

                End if

            End if

            End if

        Loop

        For i = 0 to 44

            Console.WriteLine(sNames(i) & "  " & nPaid(i))

        Next

        'Task 3

        nFree =(nStudents \ 10) * sTicket

        nTotalCost = sCoach + (sTicket * nStudents) - nFree

        Console.WriteLine("The overall cost of the trip will be $" & nTotalCost)

        Console.Writeline("The overall amount paid was $" & nPaidMoney * rPrice)

        If nTotalCost - rPrice * nPaidMoney < 0

            Console.WriteLine("The school will earned $" & (nTotalCost - rPrice * nPaidMoney) * -1)

        Else if nTotalCost - rPrice * nPaidMoney > 0

            Console.WriteLine("The school will make a loss of $" & Math.Round(nTotalCost - rPrice * nPaidMoney, 2))

        Else

            Console.WriteLine("The school will make no profit or loss")

        End if

    End Sub

End Module

​