Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim charity(2) as c

        dim amount as integer = 0

        dim C as integer = 0

        dim i as integer = 0

        for i = 0 to 2

            Console.Write("input the name for charity " & i + 1)

            charity(i).name = console.readline()

        next

​

        Do

            name(charity(0).name, charity(1).name, charity(2).name)

            Console.Write("input the charty name:")

            C = Console.ReadLine()

            Console.Write("input your payment amount:")

            amount = Console.ReadLine()

            If C = 1 Then

                charity(0).total += amount / 100

                Console.WriteLine(amount / 100 & " to " & charity(0).name)

            ElseIf C = 2 Then

                charity(1).total += amount / 100

                Console.WriteLine(amount / 100 & " to " & charity(1).name)

            ElseIf C = 3 Then

                charity(2).total += amount / 100

                Console.WriteLine(amount / 100 & " to " & charity(2).name)

            ElseIf C = -1 Then

                Console.WriteLine(charity(0).name & ":" & charity(0).total)

                Console.WriteLine(charity(1).name & ":" & charity(1).total)

                Console.WriteLine(charity(2).name & ":" & charity(2).total)

                Console.WriteLine("total:" & charity(0).total + charity(1).total + charity(2).total)

            Else

                Console.WriteLine("wrong!! please input 1,2,3 or -1 to end")

            End If

        Loop Until i = 100

    End Sub

​

    Public Sub name(a, b, c)

        Console.WriteLine("1." & a)

        Console.WriteLine("2." & b)

        Console.WriteLine("3." & c)

    end sub

​

    public class c

​

        public property name as String

​

        public property total as Decimal

    end class

End Module

​