vb写程序，谢谢啦

用循环语句写n 的接乘 --------------------编程问答--------------------



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

--------------------编程问答-------------------- 太谢谢了 --------------------编程问答-------------------- '小心溢出
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 --------------------编程问答-------------------- 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 --------------------编程问答-------------------- 看来楼上的都学过接乘 --------------------编程问答-------------------- 接乘是啥？

论坛签名======================================================================

当您的问题得到解答后请及时结贴.
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 --------------------编程问答--------------------

引用 5 楼 dbcontrols 的回复:

看来楼上的都学过接乘

是什么意思啊？请问专家上面做的对吗？ --------------------编程问答-------------------- 阶乘 n!=1*2*3*…*n --------------------编程问答-------------------- LONG是否会溢出。 --------------------编程问答-------------------- 哇，好高深，只懂10内加减法的路过 --------------------编程问答-------------------- 泰山换名字了？ --------------------编程问答--------------------

引用 7 楼 tutu0415 的回复:

引用 5 楼 dbcontrols 的回复:
看来楼上的都学过接乘

是什么意思啊？请问专家上面做的对吗？

你要的答案是4楼，其他答非所问用的递归。 --------------------编程问答-------------------- LONG也会溢出 --------------------编程问答--------------------

引用 13 楼 yoyorll 的回复:

LONG也会溢出

single也会溢出，建议用super --------------------编程问答-------------------- 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。
--------------------编程问答-------------------- 只需要注意溢出就是了
就算法而言，很简单

补充：VB ,  基础类