Imports System
Public Module Module1
Public Sub Main()
seven()
end sub
Private Sub fibo()
dim n as integer
n=100
Console.WriteLine(n)
do while (n < 1000)
n = n + 1
loop
End SUb
Private Sub filo()
do until (n = 1000)
Private Sub three()
dim x as integer
x = 0
do until (n = -1)
n = Console.readline()
x = x + n
Console.WriteLine(x)
Private Sub four()
If (n >x) Then
x = n
End If
Private Sub fiveWIP()
dim value as integer
Dim rn As New Random
n =rn.Next(1, 2)
console.write(n)
do until (n = value)
Console.WriteLine("congrats u got it")
Private Sub seven()
do until (n = 0 or n < 0)
n = n -3
If (n = 0 ) Then
console.write("multiple of 3")
else
console.write(" not multiple of 3")
End Module