Imports System

Public Module Module1

    Public Sub Main()

        dim n as integer = 9

        dim stars(9,9) as char

        for r = 0 to 9

        for c = 0 to n

        stars(r,c) = "*"

    next c

    n = n - 1

next r 

​

for r = 0 to 9

for c = 0 to 9

console.Write(stars(r,c))

next c

console.WriteLine()

next r

    End Sub

End Module