CLS
INPUT "N=";N
X# = 1
FOR I= 2 TO N
  X# = X# * I
NEXT I
PRINT N ;"!=" ; X#
END





太简单了，这是最基本的题目。

祝 神倪在世 在 QBasic 的功力大大进步！！！
祝 神倪在世 在 QBasic 的功力大大进步！！！
祝 神倪在世 在 QBasic 的功力大大进步！！！
祝 神倪在世 在 QBasic 的功力大大进步！！！
祝 神倪在世 在 QBasic 的功力大大进步！！！
祝 神倪在世 在 QBasic 的功力大大进步！！！
祝 神倪在世 在 QBasic 的功力大大进步！！！
祝 神倪在世 在 QBasic 的功力大大进步！！！
祝 神倪在世 在 QBasic 的功力大大进步！！！

神倪在世的好象错了，我感觉这题好象要用高精度

cls
inpur n
a=1
for i=2 to n
a=a*i
next i
print a
end

cls
inpur n
a=1
for i=2 to n
a=a*i
next i
print a
end

[quote]CLS
INPUT "N=";N
X# = 1
FOR I= 2 TO N
  X# = X# * I
NEXT I
PRINT N ;"!=" ; X#
END





太简单了，这是最基本的题目。
[/quote]
有这种方法做的，n=100会溢出
要用高精度
CLS
INPUT N
DIM A(1000)
A(1)=1
FOR I=1 TO N
  G=0
  FOR J=1 TO 1000
    X=A(J)*I+G
    G=X\10
    A(J)=X MOD 10
  NEXT J
NEXT I
K=1000
DO WHILE A(K)=0
  K=K-1
LOOP
FOR I=K TO 1 STEP -1
  ?USING"#";A(I);
NEXT I
END