forloop

Module VBModule
 
    Sub Main()
       For i as Integer=0 to 10
        For j as Integer=0 to i
            Console.Write("*")
        Next
        Console.WriteLine()
       Next
    End Sub
  
End Module