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

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQoJCURpbSBhIEFzIEludGVnZXIgPSAxCgkJV2hpbGUgKGEgPD0gMTApCgkJCUNvbnNvbGUuV3JpdGVMaW5lKGEpCgkJCQoJCQlhID0gYSArIDEKCQkKCQlFbmQgV2hpbGUKCQkKCQlDb25zb2xlLldyaXRlTGluZSgiV2hpbGUgbG9vcCB0ZXJtaW5hdGVzLi4uIikKCQlDb25zb2xlLldyaXRlTGluZSgiVGhlIGN1cnJlbnQgdmFsdWUgb2YgYSBpcyIpCgkJQ29uc29sZS5Xcml0ZUxpbmUoYSkKCQkKCQlDb25zb2xlLldyaXRlTGluZSgiLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSIpCgkJCgkJYSA9IDEwMAoJCURvIFdoaWxlIChhIDw9IDEwOCkKCQkJQ29uc29sZS5Xcml0ZUxpbmUoYSkKCQkJCgkJCWEgPSBhICsgMgoJCQoJCUxvb3AKCQkKCQlDb25zb2xlLldyaXRlTGluZSgiV2hpbGUgbG9vcCB0ZXJtaW5hdGVzLi4uIikKCQlDb25zb2xlLldyaXRlTGluZSgiVGhlIGN1cnJlbnQgdmFsdWUgb2YgYSBpcyIpCgkJQ29uc29sZS5Xcml0ZUxpbmUoYSkKCQkKCUVuZCBTdWIKRW5kIENsYXNz