- 博客(8)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 读数字大写的VB函数
能按上数读法读数字大写的VB函数，ChineseNumber("1"&REPT("0",127))，结果是“壹仟万亿兆京垓”。个人认为，读懂本函数的算法，对于理解递归和分治法有好处。Function ChineseNumber(Number) ChineseNumber = "" Dim DigitName(9), SubBaseName(4), BaseName(4)
2009-08-16 14:28:00
1020
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
1282
原创 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
878
原创 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
12910
原创 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
1614
原创 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
861
原创 精解C++的switch语句
入门书籍对switch语句的介绍相对较浅，我也因此而产生了很多想当然的误解。为解惑而写了以下一小篇精解switch语句，相信会对很多朋友有所帮助，同时顺便补充一些相关知识。 先抛出个题目，见下程序：//原代码出自《C语言参考手册（原书第5版）》//为了表达我的意图，特做了部分改动switch(x){ default: if(prime(x))
2009-08-07 02:07:00
4369
4
原创 C++中引用和指针的不同
引用，其本质就是指针，将它用在一些特别的场合，会比指针更简洁，更方便。具体说来，指针多用于动态内存管理和对数组的操作等，C风格的代码接收和返回指针；引用则往往用在接收和返回类类型的名字空间域函数或类域函数，以避免类对象的复制开销。但是请注意，引用毕竟不完全等同于指针，它们有一些差异： 1、引用必须初始化，指针则不然。int *pi;//可以int &ri;//不行，未初始化int i;int
2009-03-01 14:19:00
2873
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人