Problemas Zabrontosaurios

Problema 41
Hacer un programa que genere una estructura con datos del alumno (Matricula, nombre, apellido paterno, apellido materno, carrera, semestre y grupo). Declarar una variable tipo alumno,que solicite la información de un alumno y posteriormente la muestre.
Imports System.Console
Module Module1
Structure Alumno
Dim Matricula As Integer
Dim Nombre, ApellidoPaterno,ApellidoMaterno, Carrera As String
Dim Semestre, Grupo As Byte
End Structure

Sub Main()
Dim Al As Alumno
Pedir_Datos(Al)
Mostrar_Datos(Al)
ReadLine()End Sub

Sub Pedir_Datos(ByRef Al As Alumno)
WriteLine("Este es un programa que almacena los datos de un alumno.")
WriteLine("Por favor introduce la información que se tesolicita")
WriteLine()
Write("Matrícula: ")
Al.Matricula = ReadLine()
Write("Nombre: ")
Al.Nombre = ReadLine()
Write("Apellido Paterno: ")Al.ApellidoPaterno = ReadLine()
Write("Apellido Materno: ")
Al.ApellidoMaterno = ReadLine()
Write("Carrera: ")
Al.Carrera = ReadLine()
Write("Semestre: ")
Al.Semestre= ReadLine()
Write("Grupo: ")
Al.Grupo = ReadLine()
End Sub

Sub Mostrar_Datos(Al As Alumno)
WriteLine()WriteLine("*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*")
WriteLine("Los datos introducidos son: ")
WriteLine(Al.Matricula & " " & Al.Nombre & " " & Al.ApellidoPaterno & " " & Al.ApellidoMaterno)
WriteLine(Al.Carrera & " " &Al.Semestre & " " & Al.Grupo)
End Sub
End Module


Problema 46
Hacer un programa que genere una estructura con datos del alumno (Matricula, nombre, apellido paterno, apellido materno, carrera,semestre y grupo). Declarar una variable arreglo de 10 posiciones del tipo alumno, que solicite la información de 10 alumnos y los muestre.
Imports System.Console
Module Module1
Structure Alumno...