用VB求1到100阶乘的代码

我在习惯上做一个块，供事件方法调用。

它灵活在，你可以传递参数，可以是其它数的阶乘！！

Private Sub Command1_Click()

MsgBox "100!= " & Total(100) ’从此入口，调用下面的函数，并返回值

End Sub

Function Total (num as Double)

Dim i As Iinteger

num = 1

For i = 1 To 100

num = num i

Next

return Total

End Function

========================================

您的问题==我的课题 奉献知识==辉煌生命

黑龙江省 张志晨

========================================

作一个阶乘的函数：

function factor(byval n as long) as long

s = 1;

for i = 1 to n

s = s i

next i

factor=s

end function

调用此函数：(例：求100的阶乘，当然，你也可以是其他值。）

private sub command1_click()

print factor(100)

end sub

你可以把它写成一个函数，便于调用，如下：

Function Factorial(ByVal i As Integer) As Long

    Dim s As Long

    s = 1

    

    If i > 0 Then

        Do While i > 0

            s = s  i

            i = i - 1

        Loop

        Factorial = s

    Else

        Factorial = 0

    End If

End Sub

调用方法如下：

num = Factorial(3) ' num = 6

肯定对哦，求采纳么么哒 o(∩_∩)o

以上就是关于用VB求1到100阶乘的代码全部的内容，包括:用VB求1到100阶乘的代码、用VB企业版6.0怎么编写求n的阶乘的一个程序、在计算机VB中， 求n的阶乘的具体程序。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！