LAB 8:


Module Module1

    Sub Main()
        Dim counter1 As Integer
        Dim counter2 As Integer
        counter1 = 5
        counter2 = 1

        Do While (counter1 > 0)
            Do While (counter2 <= counter1)
                Console.Write("*")
                counter2 += 1
            Loop
            counter2 = 1
            Console.WriteLine("")
            counter1 -= 1
        Loop
        Console.Read()
    End Sub
End Module