Estructuras anidadas Curso de Programación Visual Basic

Lección:

Matrices, Estructuras y Cadenas


Ejercicio:

Estructuras anidadas 28


Objetivo:

Cree una estructura para almacenar dos datos para una persona:

nombre y fecha de nacimiento.

La fecha de nacimiento debe ser otra estructura que consista en día, mes y año.

Finalmente, cree una matriz de personas, pida al usuario el dato de dos personas y muéstrelas.


Código:

Imports System
Class exercise90
    Structure person
        Public Name As String
        Public Date As dateBirth
    End Structure

    Structure dateBirth
        Public Day As Integer
        Public Month As Integer
        Public Year As Integer
    End Structure

    Private Shared Sub Main(ByVal args As String())
        Dim d As Integer = 0, m As Integer = 0, y As Integer = 0
        Dim total As Integer = 1
        Dim p As person() = New person(total - 1) {}

        For i As Integer = 0 To total
            Console.Write("Enter name: ")
            Dim Name As String = Console.ReadLine()
            Console.WriteLine()
            p(i).Name = Name
            Console.Write("Enter day: ")
            d = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine()
            p(i).Date.Day = d
            Console.Write("Enter month: ")
            d = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine()
            p(i).Date.Month = m
            Console.Write("Enter year: ")
            d = Convert.ToInt32(Console.ReadLine())
            Console.WriteLine()
            p(i).Date.Year = y
        Next
    End Sub
End Class