Imports System

Public Module Module1

    '-----------------------------------------------

    ' Sistema antigo de cálculo de médias pelo reg.

    ' seriado anual - Universidade Estadual de

    ' Londrina, PR, Brasil. Autor: Thiago Gomes da

    ' Silva - mesma localidade. Data: 22.10.2016,

    ' Sábado, 16h15min (revisão).

    '-----------------------------------------------

    dim nota1 as decimal    'nota do primeiro bimestre

    dim nota2 as decimal    'nota do segundo bimestre

    dim nota3 as decimal    'nota do terceiro bimestre

    dim nota4 as decimal    'nota do quarto bimestre

    dim media as decimal    'média anual

    dim exame as decimal    'nota do exame

    dim medfi as decimal    'média final

    dim preci as decimal    'precisa tirar

    dim i as double         'contagem

    dim k as consolekeyinfo 'tecla

    Public Sub Main()

        '------------------------------------------

        ' Propriedades aqui como Key, KeyChar e 

        ' ConsoleKey, CancelKeypress etc. são

        ' somente leitura. Seriam úteis para

        ' bloquear digitação de vírgula ao invés

        ' de ponto como separador de milhares.

        ' -----------------------------------------

        try

            console.writeline("")

            console.writeline("----------------------------------------------------------------------------------------------------")

            console.WriteLine("DEVEM-SE DIGITAR PONTOS COMO SEPARADORES DE MILHARES! EM CASO DE VÍRGULAS, O RESULTADO SAIRÁ ERRADO!")

            console.writeline("----------------------------------------------------------------------------------------------------")

            console.writeline("")

            console.WriteLine("1º Bim.:")

            nota1 = console.ReadLine() 'insira a nota do primeiro bimestre:

            console.writeline("")

            console.WriteLine("2º Bim.:")

            nota2 = console.readline() 'insira a nota do segundo bimestre:

            console.writeline("")

            console.WriteLine("3º Bim.:")

            nota3 = console.readline() 'insira a nota do terceiro bimestre:

            console.writeline("")

            console.WriteLine("4º Bim.:")

            nota4 = console.readline() 'insira a nota do quarto bimestre:

            console.writeline("")

            media = ( ( nota1 * 1) + ( nota2 * 2 ) + ( nota3 * 3 ) + ( nota4 * 4 ) ) / ( 1 + 2 + 3 + 4 )

            console.writeline("")

            console.writeline("------")

            console.writeline("Média:")

            console.writeline("------")

            console.WriteLine(media) 'a média anual é:

            if media < 7 then 'ih, ficou pra exame...!

                preci = 10 - media

                console.writeline("")

                console.writeline("--------------")

                console.writeline("Precisa tirar:")

                console.writeline("--------------")

                console.writeline(preci)

                console.writeline("")

                console.WriteLine("Exame:")

                exame = console.readline() 'insira a nota do exame final:

                medfi = (media + exame ) / 2

                if medfi > = 5 then

                    console.writeline("")

                    console.WriteLine("UFA...!")

                else

                    console.writeline("")

                    console.WriteLine("IH! F.!")

                end if

                console.writeline("")

                console.writeline("------------")

                console.writeline("Média final:")

                console.writeline("------------")

                console.WriteLine(medfi) 'a média final é:

                console.writeline("")

            end if          

        catch               

        end try

        console.writeline("----")

        console.writeline("Bye!")

        console.writeline("----")

    End Sub

End Module