visual basic 中阶乘怎么表示

Question

如题所述

Answer 1

在VB中没有直接的运算符或是函数能算一个正整数的阶乘。在这里需要你自己定义一个函数来算阶乘：
Function TimeStep(Numer As Integer) As Long
TimeStep = 1
For i = 1 To Number
TimeStep = TimeStep * i
Next
End Function
把上述代码复制到这个窗体中所有代码的最上面，即通用(声明)的位置。此后，在代码中你就可以像用其他正常的函数一样用TimeStep()函数来算阶乘了。

Answer 2

在这里需要你自己定义一个函数来算阶乘：
Function TimeStep(Numer As Integer) As Long
TimeStep = 1
For i = 1 To Number
TimeStep = TimeStep * i
Next
End Function
把上述代码复制到这个窗体中所有代码的最上面，即通用(声明)的位置。此后，在代码中你就可以像用其他正常的函数一样用TimeStep()函数来算阶乘了。
知道了么？

Answer 3

没有直接可以使用的函数，要自己写一个。如下
Private Function Jc(N As Integer) As Long
Dim I As Integer
Jc = 1
For I = 1 To N
Jc = Jc * I
Next I
End Function

调用的时候比如 5！ 就用 Jc（5）