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