用VB编程实现 计算n的阶乘，找出计算结果大于10的六次方的n的值
用VB编程实现 计算n的阶乘，找出计算结果大于10的六次方的n的值
日期：2016-06-10 18:13:01 人气：2
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*.