Imports System

Public Module Module1

    Public Sub Main()

        dim n as integer =  5

            dim stars(10,10)  as char

        DIM x, y as integer

        x = 11/2

        y = x

        dim f as integer = 0

        for r =  0 to 10

        for c = x to y 

        stars(r,c) = "*"

    next c

next r

​

for r = 5 to 5

for c = 0 to n

stars(r,0) = "*"

next c

 f = f +1

if f <= 5

x = x-1

y = y + 1

else

x= x+1

y= y-1

end if

next 

​

​

    End Sub

End Module