Imports System
Public Module Module1
Public Sub Main()
Dim MonthNames() as string = {"Jan", "Feb", "March", "April", "May", "June", "July", "August", "Septemeber", "October", "Nov", "Dec"}
Dim MonthlyBill(13) as decimal
dim v1 as string
dim total as decimal
total = 0
v1 = "hi"
for i = 0 to 11
Console.WriteLine("How much did the phone bill cost in) " & MonthNames(i))
v1 = Console.ReadLine()
MonthlyBill(i) = Cint(v1)
if Total < monthlybill(i) then
Total = monthlybill(i)
v1 = i
end if
next
Console.WriteLine("The month that costs the most is " & MonthNames(v1) & " on that month it costed " & "£" & Total)
End Sub
End Module
