Imports System

Public Module Module1

    Public Sub Main()

        dim ilastnumber as integer

        console.writeline("enter a number")

        ilastnumber = console.readline()

        dim icounter as integer

        for icounter = 1 to ilastnumber

        console.writeline(icounter)

    next

    End Sub

public sub ccl_q7

    dim ilastnumber as integer

    console.writeline("enter a number")

    ilastnumber = console.readline()

    dim icounter as integer

    for icounter = ilastnumber to 1

    console.WriteLine(icounter)

next

end sub

​

public sub ccl_q8

dim ilastnumber as integer

dim n1 as integer

console.writeline("enter a number")

ilastnumber = console.readline()

n1 = console.readline()

dim icounter as integer

for icounter = 1 to ilastnumber step n1

next

end sub

​

public sub ccl_q9

dim n1 as integer

dim n2 as integer

dim n3 as integer

end sub

End Module