VB编程:设S=1*2*3*…*N ,求S不大于1000时的最大的N

怎么一复制进去,然后运行程序就未响应了啊?
2025-03-01 01:53:57
推荐回答(2个)
回答1:

m=0
n=1
do until n>1000
m=m+1
n=n*m
loop
print m

回答2:

Dim s As Long
Dim i As Long
s=1
i = 1
Do
i = i + 1
s = s * i
Loop Until s > 400000

Print s