r=1
for i=1 to n
r = Val(Right(Replace(CStr(r * i), "0", ""), 1))
next i
print r

不懂c,只会vb.....
献丑...效率太低了....

[此贴子已经被作者于2006-8-22 16:49:56编辑过]

大家不要想得那么简单，n最大10的100次方，你去一个一个乘？