Imports System

Public Module Module1

    Public Sub Main()

        Dim meses(12) as Integer

        Dim mayor = -9999999

        Dim mesMayor = 0

        For index as Integer = 0 To 11

            Console.WriteLine("Ganancias para el mes " & index + 1)

            meses(index) = Console.ReadLine()

        Next

        For index as Integer = 0 To 11

            If meses(index) > mayor Then

                mayor = meses(index)

                mesMayor = index + 1

            End If 

        Next

​

        Console.WriteLine("La mayor ganancia fue del mes " & mesMayor)

    End Sub

End Module