¡Preguntas sobre la multiplicación acumulativa de VB y la acumulación 1! +2! +3! +. . . . . +10! como programar

Función pública b(ByVal n como entero)

Si n = 1 entonces

b = 1

De lo contrario

b = b(n - 1) * n

Finalizar si

Finalizar función

Subcomando privado1_Click()

Dim n As Integer

n = Txtin.Text

Txtout.Text = b(n)

End Sub

Estás en Txtin Simplemente ingrese 10 en .text,

Entre ellos, n<=170. Es decir, sólo se podrá contar hasta ¡170!, que se desbordará en grandes cantidades.