sistema de gestión de libros vb
¿Cuándo vence esta tarea? Privado?Sub?Command1_Click()
Dim?n?As?Integer
Dim?sum?As?Double
suma?=?0
n?=?InputBox("Ingrese el valor de n")
For?i?=?1?To?n
suma?=?suma? + ?jiecheng(i)
Siguiente?i
Imprimir?suma
Fin?Sub
¿Función?pública?jiecheng(ByVal ?n?As?Integer)?As?Double
Dim?jc?As?Double
jc?=?1
Para?i?=? 1 ?A?n
jc?=?jc?*?i
Siguiente
jiecheng?=?jc
Fin? Función