Stack spg.

Det kan man ikke.

Brug en ArrayList i.s.f. der kan du nemt push til enden, remove
fra enden *og* remove midt i.

OK arne_V.
Kan du komme med et eksempel :-)

Eksempel:

Imports System
Imports System.Collections

Public Class MyStack
    Private Dim list As ArrayList = new ArrayList()
    Public Sub Push(v As String)
        list.Add(v)
    End Sub
    Public Function Pop() As String
        Pop = list.Item(list.Count - 1)
        list.RemoveAt(list.Count - 1)
    End Function
    Public Function Peek() As String
        Peek = list.Item(list.Count - 1)
    End Function
    Public Function MidRemove(ix As Integer) As String
        MidRemove = list.Item(ix)
        list.RemoveAt(ix)
    End Function
End Class

Module Main
    Sub Main()
        Dim stack As MyStack = new MyStack()
        stack.push("a")
        stack.push("bb")
        stack.push("ccc")
        stack.push("dddd")
        Console.WriteLine(stack.MidRemove(0))
        Console.WriteLine(stack.Peek())
        Console.WriteLine(stack.Peek())
        Console.WriteLine(stack.Pop())
        Console.WriteLine(stack.Pop())
        Console.WriteLine(stack.Pop())
    End Sub
End Module

Det er muligt at det kan laves fixere, men det illustrerer brug
af ArrayList som en lidt mere fleksibel Stack.

Mange tak. Det gav en del at tænke over :-)