[第33期]非零尾数

agstick

说明：
表达式N!(N为非负整数)表示从1到N的N个整数的乘积，N=0时，定义0!=1。
例如：
3!=1×2×3=6
5!=1×2×3×4×5=120
要求：
1、自定义函数求出N!的最后一位非零的数字。
例如：
5!=120,则最后一位非零的数字为2
10!=3628800,则最后一位非零的数字为8

2、代码运行流畅
评分：
答案正确得2分，精彩答案另加分。
答案发送到：agstick@126.com，并跟一贴占位，请勿出现答案相关信息。

 

BobPan

这么多位数，电脑都快罢工啊！！！

小的不才，传了一个，超过4位数不敢试(重在参与，呵呵)，占位......

另外，版主提供的附档中，123的阶乘结果的最后一位非0数字是6，好像不太正确，应该是3吧？？？

大数阶乘应该是狼版的强项，看了他的大数阶乘的计算(六)，9位数要46秒，现在这题目的数有15位，期待结帖！！！

QUOTE:

从n＝60525开始出现错误，原因是只取后4位参与运算的结果，不得分。

[此贴子已经被willin2000于2008-3-22 18:28:00编辑过]

willin2000

答案已发送到：agstick@126.com，并跟一贴占位.

QUOTE:

方法正确,评2分.

[此贴子已经被作者于2008-3-22 18:29:17编辑过]

hyc2222

答案已发送到：agstick@126.com，跟贴

刚学VBA，所以代码还比较乱，而且用的是以前学其它语言时的一些方法。

还有一个疑问，《精粹》上不是说EXCEL里的函数在VBA里都可以用吗，但为什么FACT()、SUBSTITUTE()函数不能用？如果这两个能用上，VBA解决这种问题就太浪费了。

QUOTE:

方法错误，把问题想的太简单了。不得分.

[此贴子已经被willin2000于2008-3-22 18:30:10编辑过]

hellohaha

答案已发送到：agstick@126.com，占位.

QUOTE:

文件中模块丢失，看不到代码。不得分.

[此贴子已经被willin2000于2008-3-22 18:37:18编辑过]

彭希仁

答案已发送到：agstick@126.com，并跟贴占位.

QUOTE:

取后8位数参与运算，在数据很大时不知道会不会出问题，速度太慢，无法验证。得1分。

[此贴子已经被willin2000于2008-3-22 18:38:02编辑过]

Luckyguy2008

已经发到版主邮箱，请批阅，谢谢!

QUOTE:

方法完全正确，很简洁。多加1分,评3分.

[此贴子已经被willin2000于2008-3-22 18:39:03编辑过]

northwolves

答案已发送到：agstick@126.com，凑个热闹.

QUOTE:

正确，连超过1000位的方法也提供了，加1分,评3分.

[此贴子已经被willin2000于2008-3-22 18:40:25编辑过]

山菊花

答案已发送。                                                                      

QUOTE:

方法错误，把问题想的太简单了。不得分.

[此贴子已经被willin2000于2008-3-22 18:41:28编辑过]

chrisfang

答案已发送，请版主查收。现在的回帖字数限制是不是降低要求了？

QUOTE:

方法正确，的确是一道数学题。评2分.

[此贴子已经被willin2000于2008-3-22 18:42:26编辑过]