1×2×3×4×…×n vb

Option Explicit: Dim n As Integer, y As Integer, x As Integer

Private Sub Command1_Click()
x = 1
n = InputBox("请输入n的值")
For y = 1 To n
x = x * y
Next y
MsgBox "1×2×3×4×…×n的值为：" & x
End Sub

dim s as long ,n as long,i as long
s=1
n=100'
for i=1 to n
s=s*i
next i
print s

for i=1 to n
j=j*i
next
print j

n=val(inputbox(""))
s=1
for i =1 to n
s=s*n
next i
print s