Question

VB编程题：输入m,n的值，求组合数c(m,n)的值 麻烦各位大虾看看我这段代码哪里出问题了

Private Sub Command1_Click()
Dim m%, n%, i%, x
m = InputBox("请输入m的值：")
n = InputBox("请输入n的值：")
x = F(m) / (F(n) * F(m - n))
Print "组合数c(m,n)的值为："; x
Print F(m), F(n), F(m - n)
End Sub
Private Function F(ByVal i As Integer) As Integer
If i = 1 Then
F = 1
Else
F = i * (i - 1)
End If
End Function

Answer 1

阅读了你的程序，觉得有两个问题，第一，Integer数据类型的取值范围不一定能满足你自定义函数F的值域；第二，当m=n时，你的自定义函数F(0)怎们办？会不会引发除数等于0的尴尬局面。其实数学里最难驯服的是0和1这两个数，你考虑了自定义函数的自变量等于1的情况，但是没考虑自变量等于0的情况。大概你在编译的时候会碰到的问题，不外乎这几个！