Imports System

Public Module Module1

    Public Sub Main()

        Dim LoopCounter As Integer = 1

        Do

            Console.WriteLine(LoopCounter)

            LoopCounter = LoopCounter + 1

        Loop Until LoopCounter > 10

    End Sub

End Module

​

​

​

'Pseudocode

'

'

'INTEGER: LoopCounter

'REPEAT

'  PRINT LoopCounter

'  LoopCounter <-- LoopCounter + 1

'UNTIL LoopCounter > 10