Answer to Question #256529 in Visual Basic for Qwerty

Question

USING VISUAL BASIC OR VISUAL STUDIO

Manny Management Consulting charges P1,500 for training fee 

and P120 per person for registration fee. Create an application 

to help the accountant make a billing statement showing the 

customer's name, address, number of participants, training fee, 

registration fee and total amount due.

Answer 1

Module Module1
    Sub Main()


        Dim names(100) As String
        Dim addresses(100) As String
        Dim trainingFee(100) As Double
        Dim registrationFee(100) As Double
        Dim amountDues(100) As Double
        Dim totalAmountDue As Double = 0


        Console.Write("Enter the number of participants: ")
        Dim numberParticipants As Integer = Integer.Parse(Console.ReadLine())


        For i As Integer = 0 To numberParticipants - 1
            Console.Write("Enter customer's name: ")
            names(i) = Console.ReadLine()
            Console.Write("Enter customer's address: ")
            addresses(i) = Console.ReadLine()
            trainingFee(i) = 1500
            registrationFee(i) = 120
            amountDues(i) = trainingFee(i) + registrationFee(i)
            Console.WriteLine()
        Next


        Console.WriteLine()
        For i As Integer = 0 To numberParticipants - 1
            Console.WriteLine("Customer's name: " + names(i))
            Console.WriteLine("Customer's address: " + addresses(i))
            Console.WriteLine("Customer's training fee: P" + trainingFee(i).ToString())
            Console.WriteLine("Customer's registration fee: P" + registrationFee(i).ToString())
            Console.WriteLine("Customer's total amount due: P" + amountDues(i).ToString())
            totalAmountDue += amountDues(i)
            Console.WriteLine()
        Next


        Console.WriteLine("The total amount due: P" + totalAmountDue.ToString())
        


        Console.ReadLine()
    End Sub
End Module