2005年11月_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, temp As Double, p As LongIf X > Y Thentemp = XX =

2005-11-30 15:51:00 1568

原创素数的快速列举(三)

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

2005-11-19 17:26:00 2557 2

原创素数的快速列举(二)

半年前曾在我的BLOG发过一篇文章(http://blog.csdn.net/northwolves/archive/2005/04/18/351998.aspx),对素数的快速列举进行了初步探讨，随后的讨论在http://community.csdn.net/Expert/topic/4395/4395751.xml?temp=.9719355进行， KiteGirl(小仙妹) 和

2005-11-18 23:56:00 2198

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

曾经看到有些软件能够实现这个效果，无非是向LISTBOX发送消息，获得光标所在位置的ITEM；或者干脆模拟一个鼠标左键的单击事件。下面用两种方法分别一试：方法1 Sendmessage 向LISTBOX发送消息Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, By

2005-11-17 23:07:00 2459

原创我想死你了

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

2005-11-12 00:48:00 2279

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

2005-11-09 00:47:00 8272 1

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

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

2005-11-07 00:39:00 12148 2

northwolves[狼行天下] 的专栏