vb写程序，谢谢啦

Question

用循环语句写n 的接乘

Answer 1

Private Function funJieChen(ByVal n As Integer) As Long
    Dim intP As Integer
    If n <= 0 Then Exit Function
    If n = 0 Then funJieChen = 1
    funJieChen = 1
    For intP = 1 To n
        funJieChen = funJieChen * intP
    Next intP
End Function

Answer 2

'小心溢出
Function FunJC(ByVal n As Integer) As Long
    Select Case n
        Case Is < 0
            Exit Function
        Case 0, 1
            FunJC = n
        Case Else
            FunJC = FunJC(n - 1) * n
    End Select
End Function

Answer 3

Public Function JieCheng(n As Long) As Long
    Dim s As Long, i As Long
    s = n
    For i = n - 1 To 1 Step -1
       s = s * i
    Next i
    JieCheng = s
End Function

Answer 4

接乘是啥？
论坛签名======================================================================

当您的问题得到解答后请及时结贴.
http://topic.csdn.net/u/20090501/15/7548d251-aec2-4975-a9bf-ca09a5551ba5.html
http://topic.csdn.net/u/20100428/09/BC9E0908-F250-42A6-8765-B50A82FE186A.html
http://topic.csdn.net/u/20100626/09/f35a4763-4b59-49c3-8061-d48fdbc29561.html如何给分和结贴？
http://community.csdn.net/Help/HelpCenter.htm#结帖如何给自己的回帖中也加上签名？
http://blog.csdn.net/q107770540/archive/2011/03/15/6250007.aspx

Answer 5

Decimal 数据类型
      Decimal 变量存储为 96 位（12 个字节）无符号的整型形式，并除以一个 10 的幂数。这个变比因子决定了小数点右面的数字位数，其范围从 0 到 28。变比因子为 0（没有小数位）的情形下，最大的可能值为 +/-79,228,162,514,264,337,593,543,950,335。而在有 28 个小数位的情况下，最大值为 +/-7.9228162514264337593543950335，而最小的非零值为 +/-0.0000000000000000000000000001。注意 此时，Decimal 数据类型只能在 Variant中使用，也就是说，不能声明一变量为 Decimal 的类型。不过可用 Cdec 函数，创建一个子类型为 Decimal 的 Variant。