r=1for i=1 to n r = Val(Right(Replace(CStr(r * i), "0", ""), 1))next iprint r
不懂c,只会vb.....献丑...效率太低了....
[此贴子已经被作者于2006-8-22 16:49:56编辑过]
大家不要想得那么简单,n最大10的100次方,你去一个一个乘?