Imports System

Public Module Module1

    Public Sub Main()

    'Simple Stepped Loop

    '====================================   

        '

    Dim i As Integer

​

    For i = 0 To 100 Step 10

        Console.Write(i)

    Next

    'Add a new line

    Console.WriteLine()

    '====================================

​

    'Real numbers - Deecimal

    Dim s As decimal

​

    For s = 2.4 To 2.9 Step 0.1

        Console.Write(s)

    Next

​

    'Loops with strings

​

    Dim value As String = "abcdefgh"

​

    ' Start at one so c is always valid.

​

    For j As Integer = 1 To value.Length - 1

    ' Get adjacent characters.

       Dim c As Char = value(j - 1)

       Dim c2 As Char = value(j)

​

       Console.WriteLine(c & c2 & value.Length)

​

    Next

​

    Console.ReadLine()

​

    End Sub

​

End Module