SERIE DE NUMEROS MEJORADO

DISEÑO FINALIZADO

VISTA  DEL DISEÑO

PROGRAMACION

Option Explicit
Dim num, cant, i, gen, suma, promedio As Double


Private Sub cmdGenerar_Click()

num = Val(Me.txtNumero.Text)
cant = Val(Me.txtCantidad.Text)
suma = Val(Me.txtSuma.Text)
promedio = Val(Me.txtPromedio.Text)

For i = 1 To cant
gen = gen + num
Me.lstSerie.AddItem (gen)
suma = suma + gen
promedio = suma / cant
Me.txtSuma.Text = suma
Me.txtPromedio.Text = promedio

Next

End Sub