public void Cargar()        
        {
            Persona[] array = null;
            
            array [0] = new Alumno();
            array [1] = new Docente();
            array [2] = new Alumno();
            array [3] = new Docente();

            foreach (Persona p in array )
            {
                p.Caminar();
            }
        }

// este es el codigo para modificar
public void Modificar(CapaObjetos.Personas p)
        {
            using (var modifPersona = new PersonasModelo())
            {
                var modif = from pers in modifPersona.Personas.Include("Pais")
                           where pers.Id == p.Id
                           select pers;

                var reg = modif.FirstOrDefault();    
                reg.Nombre = p.Nombre;
                reg.Pais.IdPais = p.IdPais; //error              
                //reg.IdPais = p.IdPais;   // tambien da error              
                modifPersona.SaveChanges();
               
            }
        }

// este es el codigo para agregar
public void Agregar(CapaObjetos.Personas persona)
        {
            using (var datosPersona = new PersonasModelo())
            {
                CapaDatos.Personas newPersona = new CapaDatos.Personas();                
                newPersona.Id = persona.Id;
                newPersona.Nombre = persona.Nombre;                
                newPersona.Pais.IdPais = persona.IdPais;  //error           
                datosPersona.AddToPersonas(newPersona);
                datosPersona.SaveChanges();
            }
        }

public partial class ABM : System.Web.UI.Page
{
    string boton; 
    int id;
    string nombre;

    protected void Page_Load(object sender, EventArgs e)
    {       
    }

    protected void cmdAceptar_Click(object sender, EventArgs e)
    {
        switch (boton)
        {
            
            case "Modificar":
                
                p.Modificar(id, nombre);
                break;

            case "Eliminar":
                
                p.Eliminar(id);
                break;
        }
        this.RefrescarGrilla();
        Panel1.Visible = false;
    }
  

    protected void cmdModificar_Click(object sender, EventArgs e) 
    {
        
        Panel1.Visible = true;
        boton = "Modificar";
    }

    protected void cmdEliminar_Click(object sender, EventArgs e)
    {
        
        Panel1.Visible = true;
        boton = "Eliminar";
    }    

}

string mes = Console.ReadLine();
            switch (mes)
            {
                case "enero":
                    Console.WriteLine("{0}---1",mes);
                    break;
                case "febrero":
                    Console.WriteLine("{0}---2",mes);
                    break;
                case "marzo":
                    Console.WriteLine("{0}---3",mes);
                    break;
                case "abril":
                    Console.WriteLine("{0}---4", mes);
                    break;
                case "mayo":
                    Console.WriteLine("{0}---5", mes);
                    break;
          }

'en el txt ingreso e32er
text1.text = "e32er"
If Is Numeric(text1.text)  then 'esto no me funciona por que da falso por mas 
                                                    'que la cadena tenga texto

Private Sub Form_Load()
Dim cantidad As Integer
Dim cantHexa  As String
Dim a As String
Dim b As String

cantidad = 6871             'lo paso a hexa
cantHexa = Hex(6871)  'y da "1AD7" que es un dato de tipo string

'ahora debo guardarlo swapeado y solo ocupando 2 bytes
a = Right(cantHexa, 2)  'D7
b = Left(cantHexa, 2)  '1A

Open "D:\pepe.bin" For Binary As #1
Put #1, 1, a 'D7
Put #1, 2, b '1A
Close #1
End Sub