Imports System

Public Module Module1

    Public Sub Main()

        console.writeline("Farenheit to Celcius")

        console.writeline("Input a number")

        console.WriteLine("Input -1 to end")

        sub3()

        sub2()

        sub1()

    end sub

    private sub sub3()

        dim n1 as decimal

        dim n2 as decimal

        do until (n1 = -1)

            n1 = console.ReadLine()

            n2 = (n1 - 32) * 5/9

            console.WriteLine(n2)

        loop

        if n1 = -1 then

            console.WriteLine("END")

        end if

    End Sub

    private sub sub2()

        dim n1 as decimal

        dim counter as decimal

        dim i as decimal

        dim n2 as decimal

        n2=1

        counter=0

        for i = 1 to 10

        n1= console.ReadLine()

        if  40 < n1 < 70 then

            counter= counter + n2

        end if

    next

    counter= (counter/10) * 100

    console.WriteLine(counter & "%")

    end sub

​

    private sub sub1()

        dim n1 as decimal

        n1= console.ReadLine()

        for i = 1 to n1

        if n1 Mod 2 = 0 then

            console.Write("+" & n1)

        end if

        n1 = n1 -1

        next

    end sub

End Module