visial basic

Practica # 1
Hacer un arreglo que nos permita
A) cargar y mostrar un vector
B) mostrar el promedio de edades y nombres
c) mostrar los nombres menores a 15 años
d) mostrar los mayores deedad
e) dado el nombre mostrar su edad

control
Propiedad
valor
Command1
Name
Cmdcargar

Caption
Cargar datos
Command2
Name
Cmdpromedio

Caption
promedio
Command3
Name
CmdmayorCaption
mayor
Command4
Name
Cmdmenores

Caption
Menores de 15
Command5
Name
Cmdbuscar

Caption
buscar
List1
Name
Listsalida1

Caption

List2
Name
Listsalida2

Caption

List3Name
Listsalida3

Caption

a continuación se muestra el código correspondiente o los procedimientos que gestionan los eventos

Dim nombres (1 To 5) As String
Dim edades (1 To 5) As IntegerPrivate Sub Cmdbuscar_Click ()
Dim nomb As String
Dim b As Boolean
nomb = InputBox("ingrese nombre")
b = False
For i = 1 To 5 Step 1
If (nombres (i) = nomb) Then
b = True
MsgBox ("su edad" &edades (i))
End If
Next i
If (b = False) Then
MsgBox ("no se encuentra el nombre")
End If
End Sub

Private Sub Cmdcargar_Click ()
Listsalida1.Clear
For i = 1 To 5 Step 1
nombres(i) =InputBox("ingrese nombres")
edades(i) = InputBox("ingrese edades")
Listsalida1.AddItem (nombres(i) & " " & edades(i))
Next i
End Sub

Private Sub Cmdmayor_Click()
Dim may As Integer
may = 0
For i =1 To 5 Step 1
If (edades(i) > may) Then
may = edades(i)
End If
Next i
Listsalida2.Clear
For i = 1 To 5 Step 1
If (edades(i) = may) Then
Listsalida2.AddItem (may & " " & nombres(i))
End IfNext i
End Sub

Private Sub Cmdmenores_Click()
Listsalida3.Clear
For i = 1 To 5 Step 1
If (edades(i) < 16) Then
Listsalida3.AddItem (nombres(i))
End If
Next i
End Sub

Private SubCmdpromedio_Click()
Dim s As Integer
Dim pro As Double
s = 0
For i = 1 To 5 Step 1
s = edades(i) + 1
Next i
pro = s / 5
MsgBox ("el promedio es " & pro)
End Sub



una vez establecido el código...