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

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

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