要输出使n！<1000的最大整数n。帮忙看看下面的代码有什么问题？

s=1
n=1
while  s<1000
s=s*n
n=n+1
wend
print  n
谢谢了！！

dim s,n
s=1
n=1
Do While s<1000
s=s*n
n=n+1
Loop
Print n

我也是初学者，不知道是否符合你的意思。

1楼,2楼的代码都没错啊.

2楼,你那样的数据定义,与数据未定义差不多,只是不过显式告诉程序需要使用到这二个变量而以.

应该明确指示数据的类型
Dim s As Long, n As Long
或者使用类型表示符定义
Dim s&, n&


循环语句
while  条件
语句
wend

相当于 DO loop 条件在前的形式
Do while/Until 条件
语句
Loop

While ... Wend 是BASIC原始支持的,现在都建议使用 DO ... Loop 循环.

s=1
n=1
while  s<1000
s=s*n
n=n+1
wend
print  n-1

因为你是先求阶乘后在加1，所以最后结果要减回1……

先谢3楼说的这么明白。
4楼说的情况，看来2楼的代码也应该是 Print n-1