Private Sub Command2_Click()
ins = Val(Text1.Text)
Top = 5
If ins = "0" Then
MsgBox "no hay datos que meter ¬¬", 32, "alto"
ElseIf i < Top Then
If ins > 5.1 And ins < 69.5 Then
List1.AddItem ins
i = i + 1
Else
MsgBox "no se puede guardar esta fuera de los limites establecidos", 16, "alto"
End If
Else
MsgBox "pila llena", 16, "alto"
End If
Text1 = ""
End Sub

Private Sub Command4_Click()
For j = 0 To i
If Text2 = List1.List(j) Then
List2.AddItem Text2
List1.RemoveItem (j)
List3.AddItem j
Else
MsgBox "no hay valores a eliminar", 16, "alto"
End If
Next
ne = ""
End Sub

#include<conio.h>
#include<stdlib.h>
#include<iostream.h>
int main(){
int op,ar[5],i,a,z;
do{
cout<<"\t\t\t\tmenu\n";
cout<<"\ninseccion de datos..1";
cout<<"\nmustra de datos.....2";
cout<<"\nextraccion de datos.3";
cout<<"\nsalir...............4";
cout<<"\n------> ";
cin>>op;
switch (op){
case 1:
if(i>=5){
cout<<"\ndesbordamiento pila llena\n";
}
else{
cout<<"\ndame un numero\n";
cin>>ar[i];
i=i+1;
}
break;
case 2:
if (i<=0){
cout<<"\lapila sta vacia por favor ingrese\n";
}
else{
a=i-1;
for(z=0;z<=a;z++){
cout<<ar[z];
cout<<"\n";
}
}
break;
case 3:
if (i<=0){
cout<<"\nel arreglo esta vacio por favor inserte\n";
}
//********** denotando que esta parte la hace como pilas************
else{
cout<<"\nnumeros restantes en el arreglo\n";
i=i-1;
for (z=i;z>=0;z--){
cout<<ar[z];
cout<<"\n";
}
}

break;
case 4:
cout<<"\n\t\t\tfin del programa^^";
getch();
break;
default:cout<<"\nesta opcion no es valida\n";
}
}while(op!=4);
}

#include <iostream>
#include <stdlib>
int i,num[5],op,t;
 void insertar ()
  {
   if (i==5)
    {
     cout<<"\n Pila llena "<<"\n";
    }
   else
    {
     cout<<"\n Introduzca un numero "<<"\n--";
     cin>>num[i];
     i=i+1;
    }
  }
 void eliminar ()
  {

   if (i<=0)
    {
     cout<<"\n Pila vacia "<<"\n";
    }
   else
   {
   i=i-1;
   cout<<"\nNumero eliminado:";
   cout<<"\n-- ";
   cout<<num[i]<<" --";
   cout<<"\n\n";
   }
  }
 void imprimir ()
  {
   if (i==0)
    {
     cout<<"\n Pila vacia \n";
    }
   else
   {
    int a,t=i-1;
    cout<<"\n La pila en orden es:\n\n";
    for (a=0;a<=t;a++)
     {
      cout<<num[a]<<"\n";
     }
    cout<<"\n La pila en al reves es:\n\n";
    for (a=t;a>=0;a--)
     {
      cout<<num[a]<<"\n";
     }
   }
  }
 void main ()
  {
  do
  {
   cout<<"\n";
   cout<<"1.- Insertar...."<<"\n";
   cout<<"2.- Eliminar...."<<"\n";
   cout<<"3.- Imprimir...."<<"\n";
   cout<<"4.- Salir......."<<"\n\n--";
   cin>>op;

     switch(op)
     {
      case 1: insertar();
       break;
      case 2: eliminar();
       break;
      case 3: imprimir();
       break;
      case 4:
       cout<<"\n Al fin!!!!!!!!!! \n\n";
       break;
      default:cout<<"\n Esa opcion no esta en el menu!!! \n";
      break;
     }
    }
     while (op!=4);
  }

#include<conio.h>
#include<iostream.h>
#include<stdlib.h>
int main() {
int op,ar[5],i,dd,aa,c;
reinicio:
do{
cout<<"\t\t\t\t\t\n menu \n";
cout<<"\ninseccion de numeros....1 ";
cout<<"\nmuestra de datos........2 ";
cout<<"\nextraccion de numeros...3 ";
cout<<"\nsalir...................4 ";
cout<<"\n-----> ";
cin>>op;
switch(op){
case 1:
//he aqui el problema necesito un tipo contador de las casillas
//que ya han sido utilizadas para guardar las que quedan vacias
system("cls");
cout<<"\ninserte un numero \n";
cin>>ar[i];
i=i++;
do{
cout<<"\nquiere meter un numero?\n si-1 2-no \n";
cin>>dd;
cout<<"\n";
switch(dd)
{
case 1:
cout<<"\n Introduzca un numero "<<"\n";
cin>>ar[i];
i=i++;
if (i==6) {
cout<<"este valor no se guarda\npila llena \n";
// si lo se, es una manera sucia de programar pero no me da mas remedio
//la profesora
goto reinicio;
}
break;
case 2:
cout<<"\ncapturacion terminada\n";
getch();
goto reinicio;
break;
default:cout<<"\n Esa opcion no es una opcion valida \n";
break;
}
}while (op!=2);
case 2:
if (ar[i]==ar[0]){
cout<<" no hay datos en el arreglo por favor insertelos";
}
else {
cout<<"\n numeros guardados en el arreglo \n";
 for(i=0;i<5;i++)
 {
 cout<<ar[i];
 cout<<"\n";
 cout<<"\n";
 }
 }
break;
case 3:
// si llegana compilar mi programa xD aqui sucede algo gracioso
//borra el primer elemento y despues borra del ultimo hacia atras
if (ar[i]==ar[0]){
cout<<" no hay datos en el arreglo por favor insertelos";
}
else{
cout<<"\nextraccion de numeros\n";
cout<<"numeros en el arreglo\n";
for(i=0;i<5;i++)
{
cout<<ar[i];
cout<<"\t";
cout<<"\t";
}
i=4;
do{
cout<<"\nquiere extraer un numero?\n si-1 2-no \n";
cin>>aa;

switch(aa)
{
case 1:
cout<<"\nnumeros en el arreglo\n";
for(c=i;c>=1;c--){
cout<<ar[c];
cout<<"\t";
}
i=i-1;


if (i==0) {
cout<<"\npila vacia \n";
goto reinicio;
}
break;
case 2:
cout<<"\ntermina la extraccion\n";
getch();
goto reinicio;
break;
default: cout<<"\nesa no es una opcion\n";
break;
}
}while(aa!=2);
}
break;
case 4:
cout<<"\ntermina el programa\n";
getch();
break;
default:cout<<"\nesta no es una opcion\n";
break;
}
} while(op!=4);
}