Imports System
Public Class Test
Public Shared Sub Main( )
Dim a As Integer = 1
Do
Console.WriteLine ( a)
a = a + 1
Loop Until ( a > 10 )
Console.WriteLine ( "Do loop terminates..." )
Console.WriteLine ( "The current value of a is" )
Console.WriteLine ( a)
Console.WriteLine ( "-----------------------" )
a = 100
Do
Console.WriteLine ( a)
a = a + 2
Loop Until ( a > 108 )
Console.WriteLine ( "Do loop terminates..." )
Console.WriteLine ( "The current value of a is" )
Console.WriteLine ( a)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gYSBBcyBJbnRlZ2VyID0gMQoJCQoJCURvCgkJCgkJCUNvbnNvbGUuV3JpdGVMaW5lKGEpCgkJCQoJCQlhID0gYSArIDEKCQkKCQlMb29wIFVudGlsIChhID4gMTApCgkJCgkJQ29uc29sZS5Xcml0ZUxpbmUoIkRvIGxvb3AgdGVybWluYXRlcy4uLiIpCgkJQ29uc29sZS5Xcml0ZUxpbmUoIlRoZSBjdXJyZW50IHZhbHVlIG9mIGEgaXMiKQoJCUNvbnNvbGUuV3JpdGVMaW5lKGEpCgkJCgkJQ29uc29sZS5Xcml0ZUxpbmUoIi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tIikKCQkKCQlhID0gMTAwCgkJCgkJRG8KCQkKCQkJQ29uc29sZS5Xcml0ZUxpbmUoYSkKCQkJCgkJCWEgPSBhICsgMgoJCQkKCQlMb29wIFVudGlsIChhID4gMTA4KQoJCQoJCUNvbnNvbGUuV3JpdGVMaW5lKCJEbyBsb29wIHRlcm1pbmF0ZXMuLi4iKQoJCUNvbnNvbGUuV3JpdGVMaW5lKCJUaGUgY3VycmVudCB2YWx1ZSBvZiBhIGlzIikKCQlDb25zb2xlLldyaXRlTGluZShhKQoJCQoJRW5kIFN1YgpFbmQgQ2xhc3M=