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 counter as decimal
dim i as decimal
n2=1
counter=0
for i = 1 to 10
n1= console.ReadLine()
if 40 < n1 < 70 then
counter= counter + n2
next
counter= (counter/10) * 100
console.WriteLine(counter & "%")
private sub sub1()
for i = 1 to n1
if n1 Mod 2 = 0 then
console.Write("+" & n1)
n1 = n1 -1
End Module