CLS
DIM n AS INTEGER
DIM i AS INTEGER
DIM j AS INTEGER
DIM p AS INTEGER
DIM q AS INTEGER
DIM m AS INTEGER
DIM a(1 TO 20000) AS INTEGER
o: INPUT n
a(1) = 1: m = 1
FOR i = 1 TO n
  p = 0
  FOR j = 1 TO m
    a(j) = a(j) * i + p
    p = a(j) \ 10
    a(j) = a(j) MOD 10
  NEXT j
  DO WHILE p <> 0
    m = m + 1
    a(m) = p MOD 10
    p = p \ 10
  LOOP
NEXT i
FOR i = m TO 1 STEP -1
  PRINT LTRIM$(RTRIM$(STR$(a(i))));
NEXT i
END

LTRIM$(RTRIM$(STR$(a(i))));
是什么意思?[em18]

把数字转换成字符串然后去掉首尾的空格，这样美观一点嘛！

高,实在是高!!!

你可以利用一下[url=http://www.programfan.com/club/showbbs.asp?id=99260]我刚写的贴[/url]
s$="1"
for i=1 to 100
  s$=longx$(s$,str$(i))
next
print s$

dim x as long
for i = 1 to 100
x=x*i
next i
print x
end
这样不就行了吗？[em18]