Imports System
Public Module Module1
Public Sub Main()
Question1()
question2()
Question3()
Question4()
Question5()
end sub
private sub Question1()
Dim n1 As Integer
n1 = 100
do until n1 = 1000
n1 = n1 + 1
console.writeline(n1)
loop
End Sub
private sub Question2()
do while n1 < 1000
private sub Question3()
dim sum as decimal
dim n1 as integer
sum = 0
console.WriteLine("INPUT A NUMBER")
do until n1 = -1
n1 = console.ReadLine()
sum = sum + n1
console.WriteLine(sum)
private sub Question4()
sum = -999999999999999
if n1 > sum then
sum = n1
end if
private sub Question5()
dim n1 as decimal
dim n3 as integer
n3= 3
console.WriteLine("THE NUMBER IS BETWEEN 1 AND 10")
do until n1 = n3
if n1 = n3 then
console.WriteLine("YOU GOT IT")
if n1 < n3 then
console.writeline("too low")
if n1 > n3 then
console.writeline("too high")
End Module
