cls
p=1
for i=1 to 1000
  p=p*i
next i
print "1000!值为";p

t$=str$(p) '把数值转换成字符串
for k=len(t$) to 1 step -1
  if mid$(t$,k,1)="0" then n=n+1 else exit for
next
print "零的个数为";n
end

另外，我的题目，你的解有问题，有空再帮我想想吧。

嘻嘻，挺天真可爱的，

第一个题:
input x
while x>=5
  ans=ans+(x\5)
  x=x\5
wend
print ans
end

做题目，没意思，还是去弄电脑控制单片机好玩

1楼的,1000!有2600多位,电脑哪能承受过来啊!!
应该是这样,把1-1000所有的数都分解因数,最后数有几个5就行了.
CLS:DIM SHARED z
FOR i=1 TO 1000
    CALL zero(i)
NEXT i
PRINT z
END
SUB zero(j)
IF j MOD 5=0 THEN EXIT SUB
z=z+1:CALL zero(j/5)
END SUB

呵呵,递归不是这样子用的.
有更方便的方法,你可以看看:

n=1000
x=5
do until x>n
   s=s+n\x
   x=x*5
loop
print s

而且你做的好像不太对哦.
如果我是在修改作业,我会这样子改:

FOR i=5 TO 1000 step 5
    z=z+zero(i)
NEXT i
PRINT z

function zero(j)
s=j
c=0
do 
   c=c+1
   s=s\5
loop until s mod 5>0
zero=s
END function

1000!也就是一千的阶乘,如无意外,应该是这个值 (2568位数):
402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

呵呵,一下子没注意到3楼已经有代码了,一不小心又成了剽窃者了.
答案是249应该没错的了.

最简单的用该是直接PRINT
CLS
PRINT 1000\5+1000\25+1000\125+1000\625
END
就这么简单！

哈哈