Public Function c(n As Single, m As Single)Dim a() As Single, i As SingleReDim a(4)a(1) = 1a(2) = 1a(3) = 1If n <> 0 And m <> 0 And n - m <> 0 ThenFor i = 1 To na(1) = a(1) * iNext iFor i = 1 To ma(2) = a(2) * iNext iFor i = 1 To n - ma(3) = a(3) * iNext iEnd Ifc = a(1) / (a(2) * a(3))End Function就是这些了，那些个如果n=0 ，m=0 ，n-m=0的其中一种情况出现的话就不是上面这个程序了！由于没有分！又比较麻烦的！所以我就赖得写下去了!呵呵最后祝你学习愉快！