1个5就有1个0
你算算1乘到10000里有多少个5的因子.

DIM number(10000)
FOR i = 1 TO 10000
  number(i) = i
NEXT i
FOR times = 1 TO 4
  FOR i = 1 TO 10000
    IF number(i) MOD 10 = 0 THEN
      number(i) = number(i) / 10
      sumzero = sumzero + 1
    END IF
  NEXT i
NEXT times
FOR times = 1 TO 6
  FOR i = 1 TO 10000
    IF number(i) MOD 5 = 0 THEN
      FOR j = 1 TO 10000
        IF number(j) MOD 2 = 0 THEN
          number(i) = number(i) / 5
          number(j) = number(j) / 2
          sumzero = sumzero + 1
          EXIT FOR
        END IF
      NEXT j
    END IF
  NEXT i
NEXT times
PRINT sumzero
END
不知道对不对，请高手们指正。结果是2499

2499是对的,不过程序没那么麻烦.

j = 10000
k = 5
Do
   i = j \ k
   s = s + i
   k = k * 5
Loop While i > 0
Print s

记得某一贴作业贴差不多样子的.

哪要这么长啊！
看看
[url=http://www.programfan.com/club/post-239823.html]这里[/url]你就懂了。

谢谢两位，以后还请多指教。

cls
for i=5 to 1000 step 5
j=i/5
2 if j<>int(j) then 1
k=k+1:j=j/5
goto 2
1 next i
print k:end
好多重复的题啊