运行以下的程序，单击Command1，在Inputbox框中输入数值5，点击确定后，窗体上第一行显示            第二行显示        
Function fact(x As Integer) As Long
Dim p As Long, i As Integer
    p = 1
    For i = 1 To x
        p = p * i
        x = x + 1
    Next i
fact = p
End Function
Private Sub Command1_Click()
    Dim i As Integer
    i = Val(InputBox("请输入数据"))
    a = fact((i))
    Print a
    Print i
End Sub