在VB（Visual Basic）中计算组合数（C（m, n））可以通过以下几种方法实现：
方法一：使用阶乘函数
定义阶乘函数
```vb
Private Function fact（ByVal n As Integer） As Long
Dim i As Integer
Dim f As Long
f = 1
For i = 1 To n
f = f * i
Next i
fact = f
End Function
```
计算组合数
```vb
Private Sub Command1_Click（）
Dim m As Integer, n As Integer
Dim c As Long
m = Val（Text2） ' 取文本框的值
n = Val（Text1） ' 取文本框的值
c = fact（m） / （fact（n） * fact（m - n））
Text3 = c ' 最后求得的组合数在文本框中输出
End Sub
```
方法二：使用递归
定义递归函数求阶乘
```vb
Private Function fact（ByVal n As Integer） As Long
If n = 0 Then
fact = 1
Else
fact = n * fact（n - 1）
End If
End Function
```
计算组合数
```vb
Private Sub Command1_Click（）
Dim m As Integer, n As Integer
Dim c As Long
m = Val（Text2） ' 取文本框的值
n = Val（Text1） ' 取文本框的值
c = fact（m） / （fact（n） * fact（m - n））
Text3 = c ' 最后求得的组合数在文本框中输出
End Sub
```
方法三：使用动态规划
定义阶乘函数
```vb
Private Function fact（ByVal n As Integer） As Long
Dim i As Integer
Dim f As Long
f = 1
For i = 1 To n
f = f * i
Next i
fact = f
End Function
```
计算组合数
```vb
Private Sub Command1_Click（）
Dim m As Integer, n As Integer
Dim c As Long, f1 As Long
m = Val（Text2） ' 取文本框的值
n = Val（Text1） ' 取文本框的值
Call f（m, f1） ' 调用子过程，求m的阶乘
c = f1 ' 阶乘的结果存到变量c里
Call f（n, f1） ' 调用子过程，求n的阶乘
c = c / f1 ' 阶乘的结果参与运算然后再存回变量c里
Call f（m - n, f1） ' 调用子过程，求同m-n的阶乘
c = c / f1 ' 阶乘的结果参与运算然后再存回变量c里
Text3 = c ' 最后求得的组合数在文本框中输出
End Sub
```
方法四：使用循环
定义阶乘函数
```vb
Private Function fact（ByVal n As Integer） As Long
Dim i As Integer
Dim f As Long
f = 1
For i = 1 To n
f = f * i
Next i
fact = f
End Function
```
计算组合数
```vb
Private Sub Command1_Click（）
Dim m As Integer, n As Integer
Dim c As Long
m = Val（Text2） ' 取文本框的值
n = Val（Text1） ' 取文本框的值
c = fact（m） / （fact（n） * fact（m - n））
Text3 = c ' 最后求得的组合数在文本框中输出
End Sub
```
总结
以上方法都可以用来计算组合数，选择哪种方法取决于具体的需求和代码的简洁性。阶乘函数和递归方法都可以实现组合数的计算，但递归方法可能会导致栈溢出，特别是在处理较大数值时。动态规划和循环方法则更为稳定和高效。