Imports System
Public Class Test
Public Shared Sub Main()
Dim i as Int16
i = 0
Do While i < 5
Console.Write(i)
i += 1
Loop
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gaSBhcyBJbnQxNgoJCWkgPSAwCgkJRG8gV2hpbGUgaSA8IDUKCQkJQ29uc29sZS5Xcml0ZShpKQoJCQlpICs9IDEKCQlMb29wCglFbmQgU3ViCkVuZCBDbGFzcw==