Print a below Pattern :

*****

***

***

**

*

Answer:

Dim y,z,i,j

y="*"

z=" "

For i=5 to 1 step-1

    z=" "

   For j=i to 1 step-1

      z=z&" "&y

    Next

print z

Next