用VB编程实现 计算n的阶乘，找出计算结果大于10的六次方的n的值

Question

如题所述

Answer 1

function jc(n as integer) as long
dim i as integer
jc=1
for i=2 to n
jc=jc*i
next
end function

Private sub form_click()
dim n as integer, s as long
do
n=n+1

s=jc(n)
loop until s>10^6
print "当n大于等于"; n; "时1*2*3*...*n的值大于10^6"
end sub