Piramid terbalik

Module Module1

    Sub Main()
        Dim a As Integer
        Dim b As Integer

        For a = 1 To 3
            For b = 1 To a
                Console.Write("*")
            Next
            Console.Write(vbCrLf)
        Next

        For a = 3 To 1 Step -1
            For b = 1 To a
                Console.Write("*")
            Next
            Console.Write(vbCrLf)
        Next

        Console.Read()


    End Sub

End Module