Visual Basic - AYUDA PILAS Y COLAS

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA PILAS Y COLAS

Publicado por JUAN MURILLO (3 intervenciones) el 26/03/2003 06:27:43
HOLA TENGO PROBLEMAS CON EL TEMA DE PILAS Y COLAS ME GUSTARIA QUE ME MANDASEN INFORMACION DE ESTE TEMA TENGO QUE HACER UN PROYECTO DE 7 EJERCICIOS PERO NO SE COMO EMPEZAR

USANDO LA ESTRUCTURA DE EINSERCION DE UNA PILA INSERTAR UN MAXIMO DE 1O NUMEROS DE PERSONAS

PORFA OCUPO QUE ME AYUDEN CON LA FORMA Y CODIGO OK GRACIAS SI ES POSIBLE MANDENMELO YA RESUELTO


PROGRAMO EN VISUAL BASIC 6.0
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA PILAS Y COLAS

Publicado por alberto (278 intervenciones) el 26/03/2003 08:22:42
El siguiente código para una clase implementa una pila LIFO.

Option Explicit

Private mCol As Collection
Private Sub Class_Initialize()
Set mCol = New Collection
End Sub
Private Sub Class_Terminate()
Set mCol = Nothing
End Sub
Public Function Pop() As Variant
If IsObject(mCol(mCol.Count)) Then
Set Pop = mCol(mCol.Count)
Else
Pop = mCol(mCol.Count)
End If
mCol.Remove (mCol.Count)
End Function
Public Sub Push(X As Object)
mCol.Add X
End Sub

Espero haberte ayudado.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar