SERIE DE NÚMEROS

PROGRAMACION...

Option Explicit
Dim num, cant, I, gen, suma  As Integer
Dim promedio As Double


Private Sub cmdGenerar_Click()
I = 1
Do
gen = gen + num
suma = suma + gen
promedio = suma / I
Me.lstSerie.AddItem (gen)
I = I + 1
Loop Until (I > cant)
Me.txtSuma.Text = suma
Me.txtPromedio.Text = promedio

End Sub

Private Sub cmdLimpiar_Click()
Me.txtCantidad = ""
Me.txtNumero = ""
Me.lstSerie.Clear
gen = 0
suma = 0
promedio = 0

End Sub

Private Sub Form_Load()

Me.txtCantidad = ""
Me.txtNumero = ""


End Sub

Private Sub txtCantidad_Change()
cant = Val(Me.txtCantidad.Text)

End Sub

Private Sub txtNumero_Change()
num = Val(Me.txtNumero.Text)
End Sub