Imports System
Public Module Module1
Public Sub Mike()
dim i as integer = console.ReadLine()
if(i + 2) mod 2 = 0 then
i = i + 1
end if
do
console.WriteLine(i - 2)
i = console.ReadLine()
loop while i <> 0
end sub
Public sub Nike()
dim i as integer
console.WriteLine(2 * i - 1)
loop until i = 0
End Sub
Public Sub dootonegone()
dim g as integer = console.ReadLine()
console.WriteLine(2 * g)
g = console.ReadLine()
loop until g = -1
Public Sub Stopafter5()
dim p as integer = console.ReadLine()
dim h as integer = 0
do until p = -1
console.WriteLine(2 * p)
p = console.ReadLine()
for h = 1 to 5
h += 1
next
do until h = 5
loop
Public sub Pinata()
'The program prints out the numbers 100 to 1000 using a Do Until loop'
Dim n As Integer = 100
Do until n = 1000
n += 1
console.WriteLine(n)
Loop
Public sub Nutmeg()
'The program prints out the numbers 100 to 1000 using a Do while loop'
Do while n < 1000
Public sub Main()
'The user is asked to input a number User inputs a number repeatedly Until s/he enters -1 Then the program outputs the sum of all the numbers entered.'
console.WriteLine("Please input a number")
Dim n As Integer = console.ReadLine()
dim h as integer
dim p as integer
do until n= -1
n = console.ReadLine()
for h = 1 to p
h+=n
console.WriteLine(h)
End Module
