Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim CharityBills(2) as decimal

        Dim charityName(2) as string

        Dim Choice as decimal

        Dim Bill as decimal

        Dim Donation as decimal

        Dim Grand as decimal

        'Input Charity name

        console.WriteLine("Input the 1st Charity name")

        charityName(0) = console.ReadLine()

        console.WriteLine("Input the 2nd Charity name")

        charityName(1) = console.ReadLine()

        console.WriteLine("Input the 3rd Charity name")

        charityName(2) = console.ReadLine()

        'Infinite loop

        do until Choice = 4

            'Input from keyboard

            console.WriteLine("Choose a Charity to donate by number 1,2,3 or use -1 to show total so far")

            Choice = console.ReadLine()

            if Choice = -1 then

                'Sort the array

                Array.sort(charityBills, charityName)

                Array.Reverse(charityBills)

                Array.Reverse(charityName)

                'Calculate Grandtotal

                Grand = charityBills(0) + charityBills(1) + charityBills(2)

                'print value

                Console.WriteLine(charityName(0) & " = $" & CharityBills(0))

                Console.WriteLine(charityName(1) & " = $" & CharityBills(1))

                Console.WriteLine(charityName(2) & " = $" & CharityBills(2))

                Console.WriteLine("Grand Totals = " & Grand)

                'Reset the array order

                Array.Reverse(charityBills)

                Array.Reverse(charityName)

                Array.sort(charityName,charityBills)

        else

                Do while Choice < 1 or Choice > 3

                    console.WriteLine("No Charity found")

                    Choice = console.ReadLine()

                loop

            'If-else for stores value to appropriate charity

                if Choice = 1 then

                    console.WriteLine("How much do you want to donate to Charity " & charityName(0) & "?")

                    Bill = console.ReadLine()

                    do while Bill < 0

                        console.WriteLine("You can only input positive number please try agian")

                        Bill = console.ReadLine()

                    loop

                    Donation = 0.01 * Bill

                    CharityBills(0) += Donation

                    console.WriteLine("You donate " & Donation & " (1% of your shopping bills) to charity " & charityName(0))

                else if Choice = 2 then

                    console.WriteLine("How much do you want to donate to Charity " & charityName(1) & "?")

                    Bill = console.ReadLine()

                        do while Bill < 0

                        console.WriteLine("You can only input positive number please try agian")

                        Bill = console.ReadLine()

                    loop

                    Donation = 0.01 * Bill

                    CharityBills(1) += Donation

                    console.WriteLine("You donate " & Donation & " (1% of your shopping bills) to charity " & charityName(1))

                else if choice = 3 then

                    console.WriteLine("How much do you want to donate to Charity " & charityName(2) & "?")

                    Bill = console.ReadLine()

                            do while Bill < 0

                        console.WriteLine("You can only input positive number please try agian")

                        Bill = console.ReadLine()

                    loop

                    Donation = 0.01 * Bill

                    CharityBills(2) += Donation

                    console.WriteLine("You donate " & Donation & " (1% of your shopping bills) to charity " & charityName(2))

                end if

            end if  

        loop

    End Sub

End Module

​