(階乘)例:要算號碼會出現ㄉ機率為幾次,若輸入n=2,m=1則機率為2次,依此類推..請問在程式下錯誤部分請各位大大解答.謝謝.
Function factorial(ByVal x)
Dim n, m As Double
If n > 0 Then
m = n - 1
End If
If x = 0 Then
factorial = 1
Else
n = x - 1
m = factorial(x)
factorial = x * m
End If
End Function
private Sub Cmdrun_Click()
Txtout.Text = factorial(n) / (factorial(m) * (factorial(n - m)))
End Sub
Function factorial(ByVal x)
Dim n, m As Double
If n > 0 Then
m = n - 1
End If
If x = 0 Then
factorial = 1
Else
n = x - 1
m = factorial(x)
factorial = x * m
End If
End Function
private Sub Cmdrun_Click()
Txtout.Text = factorial(n) / (factorial(m) * (factorial(n - m)))
End Sub
全站熱搜
留言列表