UNIDAD 5
Actividad 1 creación de Agenda personal con "Private Type" Option Explicit Private Type agenda nombre As String apellido As String cpostal As Integer End Type Dim x As Integer Sub datosagenda() 'llenar datos primer persona Dim personas(1 To 3) As agenda personas(1).nombre = "Juan" personas(1).apellido = "Matinez" personas(1).cpostal = "20256" 'segunda persona personas(2).nombre = "Jorge" personas(2).apellido = "Quezada" personas(2).cpostal = 20000 'tercer persona personas(3).nombre = "Victor" personas(3).apellido = "Guerrero" personas(3).cpostal = 20430 For x = 1 To 3 Cells(x, 1) = personas(x).nombre Cells(x, 2) = personas(x).apellido Cells(x, 3) = personas(x).cpostal Next x End Sub Actividad 2 Lista de estudiantes Sub librito() Dim estudiantes(1 To 4) As agenda For x = 1 To 4 estudiantes(x).nombre = Application.InputBox("Dame tu nombre ", "Nombre") estudiantes(x).apellido ...