我还是偷懒了，很早以前的一个东西，本来都扔掉的，今天看到一个MSDN上的BUG，突然想起来了，就重新写了一下。 事情是这个样子的。 (全文 …)

很久没有用VB写东西了今天突然想写个挂机程序,想起VB不能直接进行位操作,特到水木清华扒到一篇。 (全文 …)

ROUND函数在很多语言中都存在，它的“bug”也威名远播… 关于它的舍入问题，很多人都总结过吧，四舍六入五成双。 文章包含代码以及一些引用资料，如果感兴趣，可以选择阅读全文。 (全文 …)

发一段以前写的冒泡排序，FOR Basic [vb]Option Explicit Private Sub Fir_Sort() ??? Dim vArr As Variant, lngIndex As Long, lngMax As Long, lngTmp As Long ??? vArr = Array(1999, 2000, 2008, 2009, 2007, 2006, 2003, 2004, 2005, 2001, 2002) ??? lngMax = UBound(vArr) ??? For lngIndex = 1 To lngMax ??????? For lngTmp = lngIndex – 1 To lngMax ??????????? Fir_SwapB2S CLng(vArr(lngIndex – 1)), CLng(vArr(lngTmp)) ??????? Next ??? Next ??? For lngIndex = ...

先做一个伏笔,接下来会发布一些看似不沾边的东西…但是组合起来又是什么呢。 [vb]Option Explicit Private Declare Function GetUserName _ ??????????????? Lib "advapi32.dll" _ ??????????????? Alias "GetUserNameA" (ByVal lpBuffer As String, _ ????????????????????????????????????? nSize As Long) As Long Private Function Fir_GetUserName() As String Const Error As String = "Get User Name Error." Dim lngLen As Long, lngRet As Long, strRet As String lngL ...

其实还有一种，不过那个完全是调用管道来操作cmd.exe。 这篇是天极上的一篇老文，感觉也是从什么地方转载的… 原文出处？？：http://dev.yesky.com/9/2652009_1.shtml 有兴趣的话可以点击阅读全文。 (全文 …)