vb求n!(n!=1*2*3*...*n),n是自然数.编程要求:1.单击窗体时用InputBox()输入n的值.2.结果存在变量Term中.3.在窗体中输出Term的结果.4.程序编译通过后,输入n=10进行测试

vb求n!(n!=1*2*3*...*n),n是自然数.编程要求:1.单击窗体时用InputBox()输入n的值.2.结果存在变量Term中.3.在窗体中输出Term的结果.4.程序编译通过后,输入n=10进行测试
vb求n!(n!=1*2*3*...*n),n是自然数.
编程要求:1.单击窗体时用InputBox()输入n的值.2.结果存在变量Term中.3.在窗体中输出Term的结果.4.程序编译通过后,输入n=10进行测试

vb求n!(n!=1*2*3*...*n),n是自然数.编程要求:1.单击窗体时用InputBox()输入n的值.2.结果存在变量Term中.3.在窗体中输出Term的结果.4.程序编译通过后,输入n=10进行测试
 Private Sub Command1_Click()
Dim n As Integer
n = Val(InputBox("亲输入一个大于零的整数", "提示"))
Dim Term As Long
Term = 1
For i = 1 To n
Term = Term * i
Next i
Print Term
End Sub