求n的阶乘【VB代码实现】

时间：2017-06-05 12:15:51 收藏：0 阅读：334

求

For语句实现

Private Sub Command1_Click()
    Dim s As Long, n As Integer, i As Integer
    n = Val(Text1.Text)
    s = 1
    For i = 1 To n
        s = s * i
    Next i
    Label4.Caption = Str(s)
End Sub

Do While语句实现

Private Sub Command1_Click()
    Dim s As Long, n As Integer, i As Integer
    n = Val(Text1.Text)
    s = 1
    i = 1
    Do While i <= n
        s = s * i
        i = i + 1
    Loop
    Label4.Caption = Str(s)
End Sub

原文：http://www.cnblogs.com/daveylin/p/6944020.html