急求VB程序改错题高手,每个FOUND下一行有错误,请改正!十万火急!
问题描述：
急求VB程序改错题高手,每个FOUND下一行有错误,请改正!十万火急!
已知C的公式表示如下:
'
' C=------------------
' (n-m)!*m!
'函数过程fac( )求k!函数,在Fomr_Click事件中完成运算,
'请修正程序中错误.
'------------------------------------------------
Option Explicit
Private Function fac(k As Integer) As Single
Dim x As Single,j As Integer
'
C = fac(n) / fac(n - m) * fac(m)
Print "C="; C
End Sub
答
1、x = 0 (不管怎么乘都是0,0乘任何数都为0) 应该为 x=1
2、 x = x ^ j (表示x的j次方) 应该为 x = x *j
3、C = fac(n) / fac(n - m) * fac(m) （乘除的优先级别一样 按照次序进行,即先除再乘）
应该为 C = fac(n) /( fac(n - m) * fac(m))