Imports System

Public Module Module1

    Public Sub Main()

        Dim i as long

        Dim n as long

        n= 3

        For i = 1 to 100

        console.writeline(i*3)

    next

    End Sub

End Module