m=0n=1do until n>1000m=m+1n=n*mloopprint m
Dim s As LongDim i As Longs=1i = 1Do i = i + 1 s = s * i Loop Until s > 400000 Print s