Pregunta de programación de VB: ingrese los valores de myn y encuentre el número de combinación c (

Subcomando privado1_Click()

Atenuar m mientras, n mientras

m = Val(InputBox("m="))

n = Val(InputBox("n="))

Si n - m < m Entonces m = n - m

n1 = n

f = 1

Para i = 1 Para m

f = f * n / i

n = n - 1

Siguiente i

MsgBox "C(" & m & "," & n1 & ")=" & f

End Sub