Algoritmo Promedio De Edades

Option Explicit On
'program Calcula_promedio_edades;
'*******************************************
'* DANIELA ESPITIA - Feb. 12.013 *
'* SENA - Regional Cundinamarca *
' * CDAE- Villeta *
'*******************************************)
Module ESTRUCTURAS_TIPOS_DE_DATOS

Public Structure datosPersona
Public Nombre AsString ' Nombre de la persona
Public Edad As Integer ' edad de la persona
Public Ocupacion As String
End Structure
End Module
Module Module1
PublicMAXIMO_PERSONAS As Integer
Public Const EDAD_MINIMA = 0
Public Const EDAD_MAXIMA = 120
Dim persona(5) As datosPersona

Dim edad_promedio As Decimal
Dim edad_promedioEnteroAs Integer

Dim contadorpersonas As Integer
Dim continuar As Boolean
Dim seguirProcesando As Char
Dim continuarAplicacion As ConsoleKeyInfo
Dim letra As Char
Dim cki AsConsoleKeyInfo
Dim teclamenu As Byte


Sub Presentacion()

' Presenta la apliación y realiza la preparación de de la pantalla para el ingreso de los datos a través del teclado.' {Borramos la pantalla, presentamos el programa y solicitamos los datos de entrada}
Console.Clear()
Console.SetCursorPosition(3, 2) ' { Posiciono el texto en linea 2,columna 3 }
Console.ForegroundColor = ConsoleColor.Green ' { Color de texto celeste brillante }
Console.WriteLine("Bienvenido. !! ")

Console.SetCursorPosition(3, 5)Console.WriteLine("Este es un programa que le será útil para promediar edades")
' Diseñe su pantalla de presentación aquí.....
'......
'
'Finalizasolicitando al usuario ingresar ENTER para continuar
Console.SetCursorPosition(8, 8)
Console.WriteLine("Presione para continuar...")
Console.ReadLine()

End Sub

Sub...