- 博客(8)
- 资源 (1)
- 收藏
- 关注
原创 读数字大写的VB函数
能按上数读法读数字大写的VB函数,ChineseNumber("1"&REPT("0",127)),结果是“壹仟万亿兆京垓”。个人认为,读懂本函数的算法,对于理解递归和分治法有好处。Function ChineseNumber(Number) ChineseNumber = "" Dim DigitName(9), SubBaseName(4), BaseName(4)
2009-08-16 14:28:00
1028
1
原创 VB实现的身份证校验位算法
Function IDVerify(ID) t = 1 For i = 1 To 17 t = t + Val(Mid(ID, i, 1)) * (2 ^ (23 - i) Mod 11) Next t = t Mod 11 If t = 10 Then IDVerify = "X" Else
2009-08-16 14:21:00
1293
原创 VB中利用FSO在Windows下建立多级文件夹
如果想在程序中建立C:/A/B/C/D这个文件夹,而且C:/A、C:/A/B、C:/A/B/C是否已建立,尚不能确定,那么可以在模块中加入如下VB过程用于建立多级文件夹操作:Public FSO As New Scripting.FileSystemObjectPublic Sub MD(strDir As String) Dim Pos As Integer If N
2009-08-16 14:05:00
881
原创 VB中,使用Call与不使用它的区别
讨论它们的区别源自一处代码:Sheet1.Cells(2,1).CopyFromRecordset(Rs) Rs为一个ADO.Recordset对象。我发现它不能运行,但是在调用前加上了Call,就可以运行了。这个问题困扰了我很久,都是因为不求甚解,结果发现早晚会出问题。 经查阅相关资料,特将VB的Sub和Function调用语法总结如下:1、Call SubA(P1,P2
2009-08-16 14:01:00
13027
原创 Excel中取得合并单元格相关信息
示例代码:Dim R As RangeFor Each R In Selection Debug.Print "当前位置(" & R.Row & "," & R.Column & ")", R.MergeCells, Debug.Print "合并行*列(" & R.MergeArea.Rows.Count & "," & R.MergeArea.Columns.Cou
2009-08-16 13:14:00
1633
原创 SQL中的NULL值
SQL中的NULL值,表示不知道(UNKNOWN)的数据,用作不知道数据的具体值,或者不知道数据是否存在,或者数据不存在等情况。因为引入了NULL值,故此SQL的逻辑系统是三值逻辑系统——FALSE、TRUE、NULL三种值构成的逻辑系统。1、OR、AND、NOT真值表ABA OR BA AND BNOT AFALSEFALSEFALSE
2009-08-16 13:12:00
869
原创 精解C++的switch语句
入门书籍对switch语句的介绍相对较浅,我也因此而产生了很多想当然的误解。为解惑而写了以下一小篇精解switch语句,相信会对很多朋友有所帮助,同时顺便补充一些相关知识。 先抛出个题目,见下程序://原代码出自《C语言参考手册(原书第5版)》//为了表达我的意图,特做了部分改动switch(x){ default: if(prime(x))
2009-08-07 02:07:00
4421
4
原创 C++中引用和指针的不同
引用,其本质就是指针,将它用在一些特别的场合,会比指针更简洁,更方便。具体说来,指针多用于动态内存管理和对数组的操作等,C风格的代码接收和返回指针;引用则往往用在接收和返回类类型的名字空间域函数或类域函数,以避免类对象的复制开销。但是请注意,引用毕竟不完全等同于指针,它们有一些差异: 1、引用必须初始化,指针则不然。int *pi;//可以int &ri;//不行,未初始化int i;int
2009-03-01 14:19:00
2911
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人