Module Module1


    Sub Main()

        Dim intValue, intcount1, intcount2 As Integer


        Console.WriteLine("아무 숫자나 입력하세요")


        intvalue = Console.ReadLine()


        For intValue = 4 To 1 Step -1

            For intcount2 = 1 To intValue


                Console.Write("0")

            Next

            Console.WriteLine()

        Next


    End Sub


End Module




여기까지해서 

0000

000

00

0

을 만들었는데 제 목표는

0000*

000**

00***

0****

*****

이건데 어떻게 해야되나요?