Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim charityN(2) as string

        dim i as integer

        dim bill as decimal

        dim donation as decimal

        dim choice as integer

        dim customer as integer

        dim GrandT as decimal

        dim j as integer

        dim max as decimal

        dim maxIndex as integer

        console.writeline("How many customers are there?")

        customer = console.readline()

        dim DT(customer) as decimal

        console.WriteLine("  ")

        console.WriteLine("What are the charity's names? ")

        for i = 1 to 3

            charityN(i - 1) = console.ReadLine()

        next

​

        console.WriteLine("  ")

        console.WriteLine("The chosen charities are: ")

        for i = 0 to 2

            console.WriteLine(i + 1 & "." & charityN(i))

        next

​

        for i = 1 to customer

    console.WriteLine("  ")

    console.WriteLine("//NEXT CUSTOMER//")

    console.WriteLine("  ")

            console.WriteLine("What charity would you like to donate to?")

            choice = console.ReadLine()

while choice >3 Or choice > 1 

    console.writeline("error")

    choice = console.readline() 

    end while 

                console.writeline("Charity of choice is: " & CharityN(choice - 1))

                console.WriteLine("  ")

                console.WriteLine("What is the customer's shopping bill?")

                bill = console.ReadLine()

                console.WriteLine("The bill was " & "$" & bill)

                donation = bill / 100

                donation = math.Round(donation, 2)

                console.WriteLine("$" & donation & " to " & CharityN(choice - 1))

​

​

            DT(choice - 1) = DT(choice - 1) + donation

            console.WriteLine("  ")

​

        next

​

        For j = 0 to 2

            max = -1

            For k as integer = 0 to 2

                if DT(k) > max Then

                    max = DT(k)

                    maxIndex = k

                end if

            next

console.WriteLine(charityN(maxIndex)& ":" & " got the total amount of $" & max)

DT(maxIndex) = -DT(maxIndex)

            next

for i = 0 to 2

GrandT = GrandT + -DT(i)

next 

        console.WriteLine("  ")

console.WriteLine("THE GRAND TOTAL DONATED TO CHARITY IS: " & "$" & GrandT)

         End Sub

End Module

​