Answer to Question #257673 in Visual Basic for Random

Question

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.

P3,000 for training fee

P250 per person for registration fee

Answer 1

Module Module1
    Sub Main()


        Dim participantNames(10) As String
        Dim participantAddresses(10) As String
        Dim participantAmountDues(10) As Double
        Dim totalAmountDue As Double = 0


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


        For i As Integer = 0 To np - 1
            Console.Write("Enter customer's name: ")
            participantNames(i) = Console.ReadLine()
            Console.Write("Enter customer's address: ")
            participantAddresses(i) = Console.ReadLine()
            participantAmountDues(i) = 3000 + 250
            Console.WriteLine()
        Next


        Console.WriteLine()
        For i As Integer = 0 To np - 1
            Console.WriteLine("Customer's name: " + participantNames(i))
            Console.WriteLine("Customer's address: " + participantAddresses(i))
            Console.WriteLine("Customer's training fee: P1500")
            Console.WriteLine("Customer's registration fee: P120")
            Console.WriteLine("Customer's total amount due: P" + participantAmountDues(i).ToString("N2"))
            totalAmountDue += participantAmountDues(i)
            Console.WriteLine()
        Next
        Console.WriteLine("The total number of participants: " + np.ToString())
        Console.WriteLine("The total amount due: P" + totalAmountDue.ToString("N2"))




        Console.ReadLine()
    End Sub
End Module