Imports System
Public Module Module1
Public Sub Main()
Dim n as integer
n = 100
Do
Console.WriteLine(n)
n = n + 1
Loop until n = 1001
End Sub
End Module