Imports System

​

Public Module Module1

​

    Sub Main()

        Dim rows as integer

        rows = 4

        for idx as Integer = 1 to 50

            Console.WriteLine(idx)

        next

​

        for icx as Integer = 7 to -63 step -1

            Console.WriteLine(icx)

        next

​

        for isx as Integer = 0 to 36 step 6

            Console.WriteLine(isx)

        next

​

        Console.WriteLine("Enter A Number")

        for inx as Integer = 1 to console.ReadLine()

            Console.WriteLine(inx)

        next

    End Sub

End Module

​