VB6: EJERCICIO8

Dim numeros() As Integer
Dim a, b, c


Private Sub cmdCalcular_Click()
For b = 1 To a
total = total + numeros(b)
Next b
lblResultado.Caption = total / a

End Sub

Private Sub Form_Load()
a = InputBox("Cuantos números vas a introducir", "Valores?")
ReDim numeros(a)

For b = 1 To a
c = InputBox("Introduce un valor numérico :", "Introducción de números")
numeros(b) = c
Next b



End Sub