Imports System
 
Public Class Test
	Public Shared Sub Main()
		For a As Integer = 1 To 10
			Console.WriteLine(a)
		Next
 
		Console.WriteLine("-----------------------")
 
		Dim i As Integer
		For i = 100 to 105
			Console.WriteLine(i)
		Next
 
		Console.WriteLine("-----------------------")
 
		For a As Integer = 1 to 10 Step 2
			Console.WriteLine(a)
		Next
 
		Console.WriteLine("-----------------------")
 
		For a As Integer = 1 To 10
			a = 200	'this is bad programming practice
			Console.WriteLine(a)
		Next
 
		Console.WriteLine("-----------------------")
 
		i = 1
		For a As Integer = 3 * i to i Step -i
				i = 5
 
				Console.WriteLine(a)
		Next
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlGb3IgYSBBcyBJbnRlZ2VyID0gMSBUbyAxMAoJCQlDb25zb2xlLldyaXRlTGluZShhKQoJCU5leHQKCQkKCQlDb25zb2xlLldyaXRlTGluZSgiLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0iKQoJCQoJCURpbSBpIEFzIEludGVnZXIKCQlGb3IgaSA9IDEwMCB0byAxMDUKCQkJQ29uc29sZS5Xcml0ZUxpbmUoaSkKCQlOZXh0CgkKCQlDb25zb2xlLldyaXRlTGluZSgiLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0iKQoJCQoJCUZvciBhIEFzIEludGVnZXIgPSAxIHRvIDEwIFN0ZXAgMgoJCQlDb25zb2xlLldyaXRlTGluZShhKQoJCU5leHQKCQkKCQlDb25zb2xlLldyaXRlTGluZSgiLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0iKQoJCQoJCUZvciBhIEFzIEludGVnZXIgPSAxIFRvIDEwCgkJCWEgPSAyMDAJJ3RoaXMgaXMgYmFkIHByb2dyYW1taW5nIHByYWN0aWNlCgkJCUNvbnNvbGUuV3JpdGVMaW5lKGEpCgkJTmV4dAoJCQoJCUNvbnNvbGUuV3JpdGVMaW5lKCItLS0tLS0tLS0tLS0tLS0tLS0tLS0tLSIpCgkJCgkJaSA9IDEKCQlGb3IgYSBBcyBJbnRlZ2VyID0gMyAqIGkgdG8gaSBTdGVwIC1pCgkJCQlpID0gNQoJCQkJCgkJCQlDb25zb2xlLldyaXRlTGluZShhKQoJCU5leHQKCUVuZCBTdWIKRW5kIENsYXNz