Imports System
Public Module Module1
Public Sub Main()
dim i as integer
i = 1
do
console.WriteLine("cs ol")
i = i + 1
loop until ( i > 5 )
End Sub
End Module