求1000的阶乘 VBS版本
来源:互联网 发布:C语言求主析取范式 编辑:程序博客网 时间:2024/06/07 23:03
摘自:http://topic.csdn.net/u/20090411/19/325EFF86-7877-4CE8-93FC-E3D470B89995.html
不错的贴子,把里面的java程序修改成为vbscript的程序。
dim digits(2568)
max_digit = 2568
digits(max_digit) = 1
for d=2 to 1000
for k=max_digit to ubound(digits)
digits(k) = digits(k) *d
next
k = ubound(digits)
while k>=max_digit
if digits(k)>10 then
digits(k-1) = digits(k-1) + fix(digits(k) / 10)
digits(k) = digits(k) mod 10
if k-1<max_digit then
max_digit = k - 1
end if
end if
k = k-1
wend
next
'把结果转为字串。
str = ""
for i=max_digit to ubound(digits)
str = str & digits(i)
next
msgbox str
- 求1000的阶乘 VBS版本
- 求1000的阶乘
- 求20的阶乘
- 求n的阶乘
- 求5的阶乘
- 求阶乘的模板
- 求n的阶乘
- 求奇数的阶乘
- 求n的阶乘
- 求阶乘的和
- 求阶乘的函数
- 求阶乘的位数
- 求n的阶乘
- 求10000的阶乘
- 求100的阶乘
- 求4的阶乘
- 求40+的阶乘
- 求N的阶乘
- nginx环境的搭建(支持正则)
- centos5.2下安装python2.6+nginx+django
- 网站
- [转]大量小文件的实时同步方案
- 不走寻常嵌入式开发路
- 求1000的阶乘 VBS版本
- 少走弯路的十条忠告
- PRESONUS AUDIOBOX USB音频接口
- C#快速操作Excel
- Linux下基于XScale的USB摄像头图像采集
- Optimized Signal Integrity
- SQL Server数据库管理员必备的DBCC命令
- showModalDialog()、showModelessDialog()方法使用详解
- 这[