Question

请问VB这道题的代码是什么？

Answer 1

Private Sub Command1_Click()
n = CInt(Text2)
m = CInt(Text1)
c = fac(n) / (fac(m) * fac(n - m))
Text3 = c
End Sub

Function fac(n)
f = 1
For i = 2 To n
f = f * i
Next i
fac = f
End Function

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

追问

太感谢了，我写了很久，一直都不对🤝