Byval

高精度整数除法

Private Sub Command1_Click()Devide 123456789, 987654321, 2000End Sub Sub Devide(ByVal X As Long, ByVal
cjc·2004-09-16 21:00

高精度整数除法

Private Sub Command1_Click()Devide 123456789, 987654321, 2000End Sub Sub Devide(ByVal X As Long, ByVal
eimhee·2004-09-16 21:00

N皇后问题

代码： Private Sub queensn(ByVal n As Integer,
eimhee·2004-08-09 17:00

N皇后问题

代码： Private Sub queensn(ByVal n As Integer,
cjc·2004-08-09 17:00

N皇后问题

代码： Private Sub queensn(ByVal n As Integer, ByRef
ihuashao·2004-08-09 17:00

如何识别键盘左右的shift,Ctrl或Alt键

GetAsyncKeyState）实现，在WIN 2K，XP 下有效： Private Declare Function GetAsyncKeyState Lib "user32" (ByVal
eimhee·2004-08-03 18:00

如何识别键盘左右的shift,Ctrl或Alt键

GetAsyncKeyState）实现，在WIN 2K，XP 下有效： Private Declare Function GetAsyncKeyState Lib "user32" (ByVal
cjc·2004-08-03 18:00

如何识别键盘左右的shift,Ctrl或Alt键

GetAsyncKeyState）实现，在WIN 2K，XP 下有效： Private Declare Function GetAsyncKeyState Lib "user32" (ByVal
ihuashao·2004-08-03 18:00

非递归解决组合问题

代码如下 Sub GETALL(ByVal num As Integer, ByRef x As Variant, ByRef RESULT() As String, Optional ByRef all
ihuashao·2004-07-25 09:00

非递归解决组合问题

代码如下     Sub GETALL(ByVal num As Integer, ByRef x As Variant, ByRef RESULT() As String,
eimhee·2004-07-25 09:00

非递归解决组合问题

代码如下     Sub GETALL(ByVal num As Integer, ByRef x As Variant, ByRef RESULT() As String,
cjc·2004-07-25 09:00

完整的将日期时间转换为汉字的代码

下面的代码可以将任意日期（1000-01-01 0:0:0------>9999-12-31 23:59:59）转换为汉字显示 Function datename(ByVal mydate As
cjc·2004-07-21 14:00

完整的将日期时间转换为汉字的代码

下面的代码可以将任意日期（1000-01-01 0:0:0------>9999-12-31 23:59:59）转换为汉字显示 Function datename(ByVal mydate As
eimhee·2004-07-21 14:00

完整的将日期时间转换为汉字的代码

下面的代码可以将任意日期（1000-01-01 0:0:0------>9999-12-31 23:59:59）转换为汉字显示 Function datename(ByVal mydate As
ihuashao·2004-07-21 14:00

利用API 实现字符串表达式的计算

Option ExplicitPrivate Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As
cjc·2004-07-08 13:00

整数幂的求解

求整数的幂:   Private Sub Command1_Click()power 64, 10000' 64^10000End SubSub power(ByVal x As Long
cjc·2004-06-05 20:00

整数幂的求解

求整数的幂: Private Sub Command1_Click()power 64, 10000' 64^10000End SubSub power(ByVal x As Long, ByVal
ihuashao·2004-06-05 20:00

整数幂的求解

求整数的幂:   Private Sub Command1_Click()power 64, 10000' 64^10000End SubSub power(ByVal x As Long
eimhee·2004-06-05 20:00

全国15亿人口中选1000个代表有多少种选法？

*K  的求法：    Function ZDGYS(ByVal x As Long, ByVal y As Long) As Long 'GET Greatest Common
cjc·2004-06-04 11:00

全国15亿人口中选1000个代表有多少种选法？

*K 的求法： Function ZDGYS(ByVal x As Long, ByVal y As Long) As Long 'GET Greatest Common Divisor最大公约数
ihuashao·2004-06-04 11:00

全国15亿人口中选1000个代表有多少种选法？

*K  的求法：    Function ZDGYS(ByVal x As Long, ByVal y As Long) As Long 'GET Greatest Common
eimhee·2004-06-04 11:00

大数阶乘的计算（三）

id=28308基础上改进，比其至少快10%： Sub calcfactorial(ByVal n As Integer)Dim XYS() As Integer, x() As Integer, y
eimhee·2004-05-30 17:00

大数阶乘的计算（三）

id=28308基础上改进，比其至少快10%： Sub calcfactorial(ByVal n As Integer)Dim XYS() As Integer, x() As Integer, y
cjc·2004-05-30 17:00

大数阶乘的计算（三）

id=28308基础上改进，比其至少快10%： Sub calcfactorial(ByVal n As Integer)Dim XYS() As Integer, x() As Integer, y
ihuashao·2004-05-30 17:00

大数阶乘的计算（一）

成为可能： Function multi(ByVal X As String, ByVal Y As String) As String 'multi of two huge hexnum（两个大数之积
ihuashao·2004-05-30 16:00

大数阶乘的计算（一）

成为可能： Function multi(ByVal X As String, ByVal Y As String) As String 'multi of two huge hexnum（两个大数之积
cjc·2004-05-30 16:00

大数阶乘的计算（二）

  Sub calcfactorial(ByVal n As Intege
eimhee·2004-05-30 16:00

大数阶乘的计算（一）

成为可能： Function multi(ByVal X As String, ByVal Y As String) As String 'multi of two huge hexnum（两个大数之积
eimhee·2004-05-30 16:00

大数阶乘的计算（二）

  Sub calcfactorial(ByVal n As Intege
cjc·2004-05-30 16:00

大数阶乘的计算（二）

Sub calcfactorial(ByVal n As Integer)Dim
ihuashao·2004-05-30 16:00

关于日期的中文转换

9999-12-31）转换为汉字显示：   Private Sub Command1_Click()MsgBox datename(Date)End SubFunction datename(ByVal
cjc·2004-05-28 10:00

关于日期的中文转换

gt;9999-12-31）转换为汉字显示： Private Sub Command1_Click()MsgBox datename(Date)End SubFunction datename(ByVal
ihuashao·2004-05-28 10:00

关于日期的中文转换

9999-12-31）转换为汉字显示：   Private Sub Command1_Click()MsgBox datename(Date)End SubFunction datename(ByVal
eimhee·2004-05-28 10:00

关于天文数字十进制与十六进制间的转换

Dim largehex As String, largedec As String, start As Long, Y(20) As String '预备函数Function sums(ByVal
ihuashao·2004-05-17 17:00

关于天文数字十进制与十六进制间的转换

Dim largehex As String, largedec As String, start As Long, Y(20) As String '预备函数Function sums(ByVal
cjc·2004-05-17 17:00

关于天文数字十进制与十六进制间的转换

Dim largehex As String, largedec As String, start As Long, Y(20) As String '预备函数Function sums(ByVal
eimhee·2004-05-17 17:00

利用API 实现字符串表达式的计算

Option ExplicitPrivate Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As
ihuashao·2004-04-05 23:00

利用API 实现字符串表达式的计算

Option ExplicitPrivate Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As
eimhee·2004-04-05 23:00

菜单字体颜色可以更改吗？

nbsp;   一个简单的API语句可以实现更改菜单字体颜色：Private Declare Function SetSysColors Lib "user32" (ByVal
eimhee·2004-02-01 23:00

菜单字体颜色可以更改吗？

nbsp;   一个简单的API语句可以实现更改菜单字体颜色：Private Declare Function SetSysColors Lib "user32" (ByVal
cjc·2004-02-01 23:00

如何截获执行命令行的输出

quot;kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal
wapysun·2002-03-14 09:00
上一页 12 13 14 15 16 17 18 19 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他