Algoritmo

TALLER
• Haga los programas correspondientes en VB.net para resolver cada algoritmo
1. Muestre los nombres de 30 personas automáticamente (nombre 1, nombre 2, nombre 3,…) y las correspondientesedades generadas aleatoriamente.
2. Resuelva el problema anterior mostrando el promedio de las edades. El programa debe mostrar el nombre que tiene la mayor edad; en caso tal que haya varios con lamisma edad que muestre el nombre del último que cumple con el requisito.
SOLUCIÓN
Algoritmo edades aleatorias
Public Class Form1
Dim n, j(30) As Integer
Private Sub btnEjecutar_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles btnEjecutar.Click
Dim VeNombre(30) As String
VeNombre(1) = "laura"
VeNombre(2) = "luisa"
VeNombre(3) ="samuel"
VeNombre(4) = "juan"
VeNombre(5) = "carlos"
VeNombre(6) = "giovenni"
VeNombre(7) = "jhoan"
VeNombre(8) = "luis"
VeNombre(9) = "kelly"VeNombre(10) = "daniela"
VeNombre(11) = "brayan"
VeNombre(12) = "esteban"
VeNombre(13) = "yafiza"
VeNombre(14) = "dahiana"
VeNombre(15) = "milena"VeNombre(16) = "sara"
VeNombre(17) = "paola"
VeNombre(18) = "pamela"
VeNombre(19) = "paula"
VeNombre(20) = "felipe"
VeNombre(21) = "andres"VeNombre(22) = "santiago"
VeNombre(23) = "julian"
VeNombre(24) = "eduardo"
VeNombre(25) = "fabian"
VeNombre(26) = "jose"
VeNombre(27) = "mateo"VeNombre(28) = "deiby"
VeNombre(29) = "mauricio"
VeNombre(30) = "fernando"

For i = 1 To VeNombre.Length
MessageBox.Show(VeNombre(i))
Next

EndSub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
For Me.n = 1 To 30
j(n) =...