(階乘)例:要算號碼會出現ㄉ機率為幾次,若輸入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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(4) 人氣()