Subcomando privado1_Click()
Atenuar A, B, C
A = 10
B = 3
C = f(A) / (f(B) * f(A - B))
Imprimir C
End Sub
Función privada f (n)
Atenuar I como entero
f = 1
Para I = 1 a n
f = f * I
Siguiente I
Función final
Subcomando privado1_Click()
Atenuar A, B, C
A = 10
B = 3
C = f(A) / (f(B) * f(A - B))
Imprimir C
End Sub
Función privada f (n)
Atenuar I como entero
f = 1
Para I = 1 a n
f = f * I
Siguiente I
Función final