northwolves[狼行天下] 的专栏

无知无惧,无欲无敌。

关于互质数

自然数m,n,m∈(1,x),n∈(1,y),求m,n互质(即m,n 最大公约数为1)的概率x,y 驱于无穷大时,此概率的极限为6/π^2Function GETPMN(ByVal X As Long, Y As Long) As DoubleDim a() As Byte, i As Long,...

2005-11-30 15:51:00

阅读数:1124

评论数:0

素数的快速列举(三)

在http://blog.csdn.net/northwolves/archive/2005/11/18/532695.aspx 文章中,对小素数的列举进行了探讨,今天发现,由于小素数的倍数比较多,过滤所用时间较长。所以先对奇数进行初步过滤,可以达到提速的效果,继续改进如下:Private Sub...

2005-11-19 17:26:00

阅读数:2081

评论数:1

素数的快速列举(二)

       半年前曾在我的BLOG发过一篇文章(http://blog.csdn.net/northwolves/archive/2005/04/18/351998.aspx),对素数的快速列举进行了初步探讨,随后的讨论在http://community.csdn.net/Expert/topi...

2005-11-18 23:56:00

阅读数:1955

评论数:0

如何在LISTBOX中移动鼠标就可以起到CLICK的作用

曾经看到有些软件能够实现这个效果,无非是向LISTBOX发送消息,获得光标所在位置的ITEM;或者干脆模拟一个鼠标左键的单击事件。下面用两种方法分别一试:方法1  Sendmessage 向LISTBOX发送消息Private Declare Function SendMessage Lib &q...

2005-11-17 23:07:00

阅读数:2025

评论数:0

我想死你了

在窗体上镂空文字: 我想死你了Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function EndPath Lib "gdi32&q...

2005-11-12 00:48:00

阅读数:2081

评论数:0

快速分解质因数

笔者在对素数的规律研究中,发现Sieve of Eratosthenes 方法对素数的筛选还是比较快的(参见拙作href="http://blog.csdn.net/northwolves/archive/2005/04/18/351998.aspxhttp://blog.csdn.ne...

2005-11-09 00:47:00

阅读数:6956

评论数:1

如何在EXCEL SHEET中 动态添加控件

EXCEL SHEET中如何添加下拉框或者 文本框,命令按钮?下面的方法就可以:添加命令按钮1 新建WORKSHEET2  打开Visiual Basic编辑器3  选择SHEET1 的Worksheet_SelectionChange 事件4 编写代码如下:Private Sub Workshe...

2005-11-07 00:39:00

阅读数:10562

评论数:2

提示
确定要删除当前文章?
取消 删除
关闭
关闭