王峰炬

摘要： '以下代码可以利用非循环的方式,实现把[a1:a12]的数据快速复制到[b1:e3]: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal By... 阅读全文

摘要： 'copymemory可以实现不同维数数组间的转换,如: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)... 阅读全文

摘要： MSHFlexGrid的selecttionMode设了by row，单击的时候是选择一行，但只要鼠标拖动也是可以选择多行: Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single,... 阅读全文

摘要： VB中可将日期作为实数的一部分来存储。小数点左边的数值表示日期：小数点右边的数值表示时间。负的数值表示在1899 年 12 月 30 日 之前。所以每一天可以用一个整数来表示（以1899-12-30 为0，该日之后为正数，之前为负数） ，对于MSVB 的合法日期，即#100-1-1# 到#9999... 阅读全文

摘要： 如果设置CheckBox属性=true时会出现一个复选框,这个框默认就是选定的,想调整成非选定状态,却不是很容易。Vb.net下稍简单一些dtp.value = nowdtp.checked = truedtp.checked = false但VB6没有CHECKED这个属性，笔者研究发现发送一个... 阅读全文

摘要： 题目：整数数列 {xn} ∈[0,max] , 且 ∑xi=sum, 则这样的序列共有多少个？方法：递归Function resultcount(ByVal n As Integer, ByVal max As Integer, ByVal sum As Integer) As IntegerI... 阅读全文

摘要： 自然数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,... 阅读全文

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

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

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