Imports System

Public Module Module1

    Public Sub Main()

        Dim a As Integer = 1

        while a < =10

            Console.WriteLine(a)

            a = a + 1

        End While

        Console.ReadLine()

    End Sub

End Module