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) = "*"
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