Utilice la programación VB para calcular S=1 2 3......n (el valor de n lo determina el usuario) y escriba un programa

Private Sub Form_Load()

Dim n As Integer

n = Val(InputBox("Ingrese un número", "InputBox", "10") )

MsgBox Fun(n)

End Sub

Función privada Fun(n como entero) Como entero 'recursivo

Si n lt;= 1 Entonces

Diversión = 1

Si no

Diversión = n Diversión(n - 1)

Finalizar si

Función final