连乘的题vb

来源：百度知道编辑：UC知道时间：2024/06/15 10:44:56

这个编程怎么做啊，设S=1*2*3*……*n,求s不大于400000时最大的n

dim S as Long,n as integer
S=1
do while S<400000
n=n+1
S=S*n
loop
Print n-1 'n-1就是要求的值。

s=0:n=1
do while s<=400000
s=s*n
n=n+1
loop
? n-1'n-1这个数就是最大的

dim a as Long,n as integer
a=1
do while S<400000
n=n+1
a=a*n
loop
Print n-1
n-1就是要求的值。