用VB设计程序

Private Sub Form_Click()
Dim k, n As Integer
Dim i Long
n = val(InputBox("n="))
s = i
For k = 2 To n
i = i * k
Next k
print i
End Sub

private sub form_click
dim i!
i=val(inputbox("" "请输入i的植" ""))
for i= 1 to unbond(i)
i！=（i-1）*i
（i-1）！=（i-2）*（i-1）
..............
（i-（i-1））=1*（i-i）
end sub

1*2=(2-1)*1
应该是唯一的解