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

​