La programación VB calcula el valor de la siguiente fórmula, donde n (lt; 15) es un número entero positivo ingresado a través del teclado. S=1! 3! 5! ...... (2*n-1)!
Private Sub Command1_Click()
Dim n como entero, i como entero
Dim sum como doble
n = Val(InputBox("Ingrese N. " ))
Ingrese N: "))
suma = 0
Para i = 1 To n
suma = suma fac( 2 * yo - 1)