摘要：某日，老师在课堂上想看看一学生智商有没有问题，问他“树上有十只鸟，开枪打死一只，还剩几只？” 他反问“是无声手枪或别的无声的枪吗？” “不是。” “枪声有多大？” “80－100分贝。” “那就是说会震的耳朵疼？” “是。” “在这个城市里打鸟犯不犯法？” “不犯。” “您确定那只鸟真的被打死啦？” “确定。”偶已经不耐烦了“拜托，你告诉我还剩几只就行了，ok”“ok，树上的鸟里有没有聋子？” “没有。” “有没有关在笼子里的？” “没有。” “边上还有没有其他的树，树上还有没有其他鸟？” “没有。” “有没有残疾的或饿的飞不动的鸟？” “没有。” “算不... 阅读全文
全国QQ用户每升一级用电60亿度？！
2005-05-13 00:36 by 电脑人生, 297 阅读, 0 推荐, 收藏, 编辑
摘要：“真心劝大家不要再单纯为升级挂QQ了！”最近同类呼声频频在网上出现。据网友发帖反映，自从腾讯公司推出该项目以来，不少QQ迷都在为了升级而长期挂线。 “这样非常浪费电，我们国家本来就不富裕，不少省市年年缺电。希望大家不要再无谓地挂QQ了,就算你升到100级又有什么用呢？！”一位网友发帖感慨。 记者做了不完全调查以及咨询了部分专家后，得出了一个惊人的近乎恐怖的数字：QQ升一级，电量够宁波用一年。 盲目升级的QQ挂机族 吴小姐的工作离不开电脑和网络，她也是典型的QQ挂机族。她坦言自己下班从不关机，QQ也不下线，仅仅是隐身而已，目前她已经是28级了。她说，现在除了可以用自定义头像，好像... 阅读全文
今天晚上写了个获取当前Office版本的函数（原创！）
2005-04-29 21:33 by 电脑人生, 277 阅读, 0 推荐, 收藏, 编辑
摘要：获取当前Office版本的函数Private Sub Command1_Click() MsgBox GetInstalledOfficeVersion()End Sub'本函数运行不需要机器上安装过Office'经典的判断Office版本函数，原创！'支持到Office 2003Function GetInstalledOfficeVersion() As String On Error Resume Next Dim WD Dim OfficeVer As String OfficeVer = 0 GetInstalledOfficeVersion = " 阅读全文
写了个＂网络连接管理＂软件，以后做这事情方便了
2005-04-28 12:10 by 电脑人生, 131 阅读, 0 推荐, 收藏, 编辑
摘要：支持 Win2K,WinXp,Win2003,..'-------------------------------------------' 转载请注明出处' 作者：唐细刚' 邮箱：tanaya@163.com'------------------------------------------- 阅读全文
写了个二分法查找函数
2005-04-27 22:15 by 电脑人生, 380 阅读, 0 推荐, 收藏, 编辑
摘要：今日有csdn的网友问到这个问题，所以写了这个函数，如下：'二分法查找函数'功能：在数组中查找指定的值'返回：若查到指定值则返回相应的索引，否则返回-1'程序：by Tang 22:06 2005-4-27Function vbBinarySearch(vb_Array() As Long, ByVal vb_Find As Long) As Long Dim SearchMin As Long Dim SearchMax As Long Dim i As Long vbBinarySearch = -1 SearchMin = LBound(vb_Array) 阅读全文
判断数组是否被分配的VB函数
2005-04-21 13:01 by 电脑人生, 150 阅读, 0 推荐, 收藏, 编辑
摘要：Function IsReDim(ByRef MyArray() As Variant) As Boolean On Error GoTo Z Dim szTmp szTmp = Join(MyArray, ",") IsReDim = LenB(szTmp) > 0 Exit FunctionZ: IsReDim = FalseEnd FunctionIsReDim判断数组是不是被分配过，如果是动态数组被Erase了，将返回False使用例子：If IsReDim(uArray) Then 'uArray里面有数据Else 'uArray里面没有数据 阅读全文
用VB得到windows系统安装时的时间(for NT,2000,XP,..)
2005-04-21 11:27 by 电脑人生, 356 阅读, 0 推荐, 收藏, 编辑
摘要：Option ExplicitPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal h 阅读全文
初恋的温度
2005-04-18 11:55 by 电脑人生, 165 阅读, 0 推荐, 收藏, 编辑
摘要：我用咖啡的旋转旋转着我的慌乱匙与杯的脆响代表了羞涩的答案当我终于肯让你理正我的红帽并把一缕长发掼在耳后你浅笑了我知道你心里一定在想这杯咖啡真没白喝!哼!!在送我的路灯下你亲了我活该! 烫着了吧那时我的脸上正燃烧着初恋的温度... 阅读全文
VB也玩自杀
2005-04-05 08:52 by 电脑人生, 188 阅读, 0 推荐, 收藏, 编辑
摘要：以前写过VC,Delphi和CBC的自杀程序,VB的自杀也写过,不过用的是批处理,今天又挖掘了下VB的自杀功能使用API实现,开发：VB6 阅读全文