下面的算法在 http://www.csdn.net/Devel_程序开发编程(大数阶乘的计算（三）)

开发技术指南» 文章正文

引言：下面的算法在 http://www.csdn.net/Devel

摘要：作者： csdn vc/mfc 网络编程 piggyxp ^_^ 本篇目录：四。arp包的游戏 1 . 小伎俩 2. arp欺骗的实现 3. 基于arp欺骗的监听原理四．arp包的游戏既然我们可以自己来填充数据包，那么来玩些arp的“小游戏”欺骗就是易如反掌了，当然，是在没有安全防护的网络里，比如只有hub或者交换机把你们相连，而没有路由分段……^_^ 下面我就由浅入深的讲一些介绍......

·利用xmlhttp无刷新添加数据之get篇. »显示摘要«

摘要：利用xmlhttp无刷新添加数据之get篇. 前两篇主要写了从获取数据.接下来,我们讲讲如何添加数据.我们传统的提交数据的方法都是用<form>来实现的.<form>标记中的method属性确定了表单元素的数据在发送到服务器时,如何对http请求信息进行打包. method 属性可以使用的方法method属性发送表单元素的方式读取数据的request集合get 标识在url的最后 querystringpost 在htt......

大数阶乘的计算（三）

下面的算法在 http://www.csdn.net/develop/edit.asp?id=28308基础上改进，比其至少快10%：

【相关文章:在C#中操作XML】

sub calcfactorial(byval n as integer) 【扩展阅读:XML数据库探讨1】

【扩展信息:调用Shell接口(系统运行窗口)的代码】

dim xys() as integer, x() as integer, y() as integer, result() as string, i as long, j as long, k as long, temp as long, stimer as double

if n < 0 then exit sub

redim x(1)

redim xys(1)

x(1) = 1

xys(1) = 1

k = 1

stimer = timer

do while k <= n

temp = len(cstr(k))

redim y(1 to temp)

for i = 1 to temp

y(i) = val(mid(k, temp + 1 - i, 1))

redim xys(1 to ubound(x) + ubound(y))

for i = 1 to ubound(x)

for j = 1 to ubound(y)

xys(i + j - 1) = xys(i + j - 1) + x(i) * y(j)

for i = 1 to ubound(x) + ubound(y) - 1

temp = xys(i) \ 10

xys(i) = xys(i) mod 10

xys(i + 1) = xys(i + 1) + temp

x = xys

if x(ubound(x)) = 0 then redim preserve x(1 to ubound(x) - 1)

k = k + 1

loop

redim result(1 to ubound(x))

for i = 1 to ubound(x)

result(i) = x(ubound(x) + 1 - i)

factorial = join(result, "")

debug.print k - 1 & "！：用时 "; timer - stimer & " 秒, 结果 " & ubound(x) & " 位"

´debug.print factorial

... 下一页

·在 grub 中增加一个显示举例的命令 »显示摘要«

摘要：在 grub 中增加一个显示举例的命令 lu_yi_ming(at)sina.com 2004.5.30 　　最近用 grub 的时候比较多，感觉到命令行的帮助信息太少，使用的时候又不能像操作系统启动后可以打开详细的文档边看边操作，很不方便，于是就找来源代码，增加了一个命令“example [1|2|3]”，分别显示启动 linux、freebsd、windows 的命令行代码例子。　　我的操作环境：redhat linux 8.0，grub 0.......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：