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编辑过]
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编辑过]
2006-08-22 16:40
大家不要想得那么简单，n最大10的100次方，你去一个一个乘？
2006-09-02 06:57
2006-09-02 13:40