组合数公式 n!/m!(n-m)! “!”表示阶乘 谢啦 我的程序总是提示确保不会除零 我郁闷了。。。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a%, b%, r%, t%
a = TextBox1.Text
b = TextBox2.Text
t = a - b
r = c(a) / (c(b) * c(t))
TextBox3.Text = r
End Sub
Function c(ByVal m As Long) As Integer
Dim x As Long
c = 1
For x = 1 To m
c = c * x
Next
End Function