vb小程序 本人新手

dim s as long,n as integer,i as inerger
n=inputbox("请输入n的值：")
for i=1 to n
s=s*i
next i
print "n!=";s
注意输入的n不能太大，会溢出的哦。

sub test()
dim i as integer
dim v as double
i=val(inputbox("请输入一个正整数","取值")
v=jiecheng(i)
msgbox str(v),vbOkOnly,"结果"
end sub

function jiecheng(x as integer) as double
dim t as double
dim i as integer
t=1
for i=1 to x
t=t*i
next i
test=t
end function

dim s as double
dim i as integer

x = 1
for i = 2 to n
s = s * i
next

print "n!=",s

x = 1
for i = 2 to n
x = x * i
next

s=1
for i = 2 to n
s=s*n
next