Question

求VB大神编写关于for next语言的程序

Answer 1

dim i as Integer,n as Integer,Ret as Integer

n = Val(InputBox("请输入n:"))

Ret =1

For i = 1 to n

Ret = Ret * i

Next i

Print Ret