VB高手来帮忙谢谢了 要求输入一整数，求N的阶程并显示

Dim s, n As Integer
s = 1
n = InputBox("请输入一个整数")
For i = 1 To n
s = s * i
Next i
Print n & "!=" & s

s=1
for i = n to 1
s=s*n
next i
print "n! = ",s

dim i as integer
dim sum as long
for i=2 to n
sum=sum*i
next