问题：

（填空题）填空题：计算组合数的程序实现

在Visual Basic程序中，有一个用于计算组合数的函数。程序通过用户输入的n和r值，计算从n个运动员中选出r个人的不同选法个数，并显示结果。请在程序中的两个空白处填写正确的代码。

Private Sub Command1_Click()
    Dim r As Integer, n As Integer
    n = Text1.Text
    r = Text2.Text
    Text3.Text = fun(n) / fun(n - r) / fun(r)
End Sub

Function fun(n As Integer) As Long
    Dim t As Long
    t = 1
    For k = 1 To n
        t = t * k
    Next
    fun = t
End Function

提问：

在Visual Basic中，如何实现一个函数来计算组合数？请根据提供的代码片段，填写必要的部分以完成程序。

复习要点：

理解组合数的计算方法，以及如何在Visual Basic中实现一个计算阶乘的函数，进而计算组合数。

查阅资料方向：

查阅有关组合数计算和Visual Basic编程的资料，特别是关于函数定义和循环结构的使用。

参考答案：
题目声明 提问用户：53***o0f

可能感兴趣的题目：