VB sobre programación de pila

De esta manera, primero puede crear una matriz lineal y luego mantener esta matriz de acuerdo con el principio de "primero en entrar, primero en salir, último en entrar, primero en salir". . . . Código aproximado:

pila tenue (100) siempre y cuando, puntero de pila siempre

'Ingresar a la pila

función push(número byval siempre y cuando) como pila booleana Devuelve falso cuando se desborda

si stackpointer> entonces

push=false

Salir de la función

finalizar si

stack(stackpointer)=número

stackpointer= stackpointer+1

push=true

finalizar función

'Salir de la pila

p>

función pop(número tan largo) asboolean 'devuelve falso, indicando que se ha llegado al final de la pila

si stackpointer=0 entonces

pop =falso

función de salida

finalizar si

número=stack(stackpointer)

stackpointer=stackpointer-1

pop=true

Función final

'En el código anterior, stack() es la matriz de pila que se mantendrá y el puntero de pila es la parte superior de la pila actual'.