博文
崩溃(2008-09-07 11:36:00)
摘要：黄昏的早晨，年轻的老人，骑着一匹白色的黑马，拿着一把锋利的钝刀，去杀他亲爱的仇人.傻子偷神经病,被瞎子看见了,哑巴大喊一声,把聋子吓一跳,罗锅挺身而出,瘸子飞起一脚,麻子说看我面子算了,疯子说大家要冷静.......
VBA for EXCEL 常见误区(2008-05-10 15:08:00)
摘要： VBA是从流行的Visual Basic编程语言中派生出来的一种面向应用程序的语言，它适用于各种Windows应用程序，可以解决各应用程序的宏语言不统一的问题，今天我们谈谈Excel中使用VBA的几个误区。
1、想通过Excel+vba来编程发财，不管怎么说，目前这种可能性很小。
2、录制宏后的代码不进行简化，这种情况初学者常犯；或者不屑于用录制宏，这种相反。
3、喜欢用.select、.copy、.active等，如果不是迫不得已，还是不要用这些东西好。
4、不喜欢用公式、函数，什么都喜欢用程序；活用公式函数是我们学EXCEL中重要的重点，学会嵌套着用，很多事情都可以解决。譬如表1的A1单元格如果要等于表2的A列中的某个单元格，很多人都是用程序来直接赋值，数量少这也可以，但如果数量很多的话，为何不试用一下offset呢？偏移都指向同一个单元格，就当是一个变量，改一下这个单元格的值，表1用offset的单元格的值就全部改了。
5、设计输入数据的界面竟然用用户窗口+文本框之类的东西，天，我为什么要用EXCEL，原因之一不就是图个方便吗？！直接在工作表中操作就是输入数据最好的方法，如果一些功能你不想给别人用，顶多你屏蔽掉吧。
6、关闭程序的时候很喜欢退出整个EXCEL，这样自我感觉更象一个完整的程序。其实完全有必要考虑其他用户是否也在用EXCEL，所以，必须做好一下判断，不要自作聪明全部退出来，还帮忙把每个工作簿都保存一下。
7、不喜欢用with，总是workbook("").worksheet("").range("").***一行行排得挺整齐的，还说都用复制，其实也不麻烦。
8、总想把VBA+EXCEL做得象一个程序一样，其实，就因为它不独立，所以才更加为我们喜爱，不是吗？......
新版机器狗病毒简析(2008-03-09 16:07:00)
摘要：
新版机器狗病毒详细分析
作者：佚名 技术资料来源：本站原创 点击数：
26 更新时间：2008-3-9
新版“机器狗”病毒详细分析资料
新版“机器狗”病毒详细分析资料(全部资料的一少部分)
呵呵，不好意思了。大家目前只可以看到标题，具体的详细分析资料不能够公开了。
==========================================================================
报告名称：新版“机器狗”病毒详细分析资料(全部资料的一少部分)
报告类型：病毒原理逆向反汇编分析播报
编写作者：Coderui
编写日期：2008年01月15日
==========================================================================
------------------------------------------------------------------------
对比“机器狗”一类新、老版本病毒的特征：
1：新版本“机器狗”病毒采用VC++ 6.0编写，老版本“机器狗”病毒采用汇编编写。
2：新版本“机器狗”病毒采用UPX加壳，老版本“机器狗”病毒采用未知壳。
3：新版本“机器狗”病毒驱动文件很小(1,536 字节)，老版本“机器狗”病毒驱动文件很大(6,768 字节)。
4：新版本“机器狗”病毒安装驱动后没有执行卸载删除操作，老版本“机器狗”病毒安装驱动工作完毕后会卸载删除。
5：新版本“机器狗”病毒针对的是系统“conime.exe”、“ctfmon.exe”和“explorer.exe”程序文件，老版本“机器狗”病毒只针对系统“userinit.exe”文件。
6：新版本“机器狗”病毒没有对注册表进行操作，老版本“机器狗”病毒有对注册表“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows......
约瑟夫问题(另类)(2007-12-16 21:02:00)
摘要：约瑟夫问题
这是17世纪的法国数学家加斯帕在《数目的游戏问题》中讲的一个故事：15个教徒和15 个非教徒在深海上遇险，必须将一半的人投入海中，其余的人才能幸免于难，于是想了一个办法：30个人围成一圆圈，从第一个人开始依次报数，每数到第九个人就将他扔入大海，如此循环进行直到仅余15个人为止。问怎样排法，才能使每次投入大海的都是非教徒.
约瑟夫问题
这是一个非常经典的问题：n个骑士编号1，2，...，n，围坐在圆桌旁，编号为k的骑士从1开始报数，报到m的骑士出列，然后下一个位置再从1开始报数，找出最后留在圆桌旁的骑士编号。
强强估计是为了活跃一下QB版块,发了这么一个贴:
http://www.programfan.com/club/post-254722.html
题目：有n个人围成一圈，顺序排号。从第一个人开始报数（从1到3报数），凡报到3的人退出圈子，问最后留下的是原来第几号的那位。
我也就改善了一下别人的代码,最后实在忍不住看看是不是可以另辟蹊径,
结果,我还真的写出来了,完全是自己的经验之作.绝无抄袭.
也算是一个小小的成就,值得自我再次陶醉一下.
但具体理论原理,我还真的说不出来,完全是形而上学而成的.
持怀疑态度的尽管一试,我是再没有精力去研究其中的道理了,
有兴趣的有慧眼的,还请指点一二:
QB,VB代码:
Function m3(n, m)
a = 1
s = 1
m1 = m - 1
Do While a < n
b = a - s
If b < m1 Then
a =......
恶语相向=加速死亡(2007-11-18 02:48:00)
摘要：读书时,邻班有一个比较能开玩笑的同学,经常一见面都会开一些比较过份的捉狭的玩笑.而我的脑子比较活,一般见面我都会说上几句,我的特点就是明显过份,让别人一听就知道是开玩笑的说话.
直到有一天,我不记得迎面踫见时我说了一句什么,反正是比较过份的玩笑,他这一次再没有和我应对了,而是大声斥责我.
从此之后,我开始明白,别人都会有各种各样的想法和生活习惯,不一定能认同和适应你的习惯,玩笑也一样,你说得过份认为是笑话的,别人却很有可能误会成你对别人的不尊重可诋毁.于是,我开始尊重别人了,也更沉默寡言了.
现在,我也一直的比较小心翼翼的注意对你的言辞,我的大男人主义也有限,而且在你面前,我根本不可能也没有大男人主义的权利.我知道你的性格,让你不开心的不高兴的我尽量不提,尽量去迎合你的喜好.
怪也只能怪我们的年龄和习惯和爱好和生活态度相差太远了,我走过来了,也能理解你的性格与言辞和看法.也许你只感觉到我对你的不关心不重视,甚至在我心中的地位比别人更轻.如果缺了这一份信任,其他所有的一切都将会打折了.你也没有注意到,你自己的言辞态度,对别人的影响.一个人没有镜子,是看不到自己的.你年轻你好玩爱闹,还非得寄望我会与你一起闹,一有不高兴,一有要求没得到满足,一有意见没得到附和或侍候,出来的说话可是一份情面都没有,也许你不感觉有什么问题,而在我心里,早已失去所有尊严去忍受.你可以想像一下,是谁高声在叫喊,是谁在发表不满,是谁在要求这样要求那样,到底是谁在影响我们生活的心情.也许你还要在追究责任何在.但我要说的是,你要生活,要自己创造,要钱要房子要车子要地位要宠爱要尊严要理解,所有的一切,所有的欲求,需要你自己去追求与创造,不可能嫁一个丈夫便能拥有一切.或者是要求这一切.我有的,我没有的,我所追求的,甚至我将来可能能做得到的,早已对你说清楚,你如果没有接受现实的心理准备,却已与我走在一起.男人当然有男人的责任,但应该是力所能及的,而且到今天为止,我认为我已经做到我应该做的,愧疚的也是我无能为力的事情,但这不应该是我的压力.
走在一起,理解很重要,但只我理解你却达不到你的所有要求,是不够的.
你认为幸福是什么?你认为是两个人齐心协力,共同搛钱,而且我要全心全意关心你爱护你,这才是幸福.你都没有得到,所以你不幸福.
我认为幸福是什么?我认为互相理解,互相体谅,互敬互......
如此动人(2007-09-13 20:48:00)
摘要：
美女图片网乳此动人0912 本站网址 “http://www.rcdr.cn”
声明：
1、本站仅发布女性唯美图片，绝无露点图片。
2、本站仅发布图片，绝无裸聊、色情表演、招嫖等涉黄内容。
3、本站意图长期发展，坚决反对任何形式的网络色情。
本站特色：
1、和其它图片网站的断断续续相比。本站的图片每天都更新，从不间断。
2、本站还提供网上独一无二的“两性网址大全”“两性论坛网址大全”，都是两性最好的网址。
3、现代科学认为，每天凝望漂亮女性几分钟，有助于男士健康长寿。,欢迎你每天到本站看养眼图
片，愉悦身心、放松心情。成为生活的一部分。
敬告网友：本站只保留10天的图片，10天之前将不再显示。本站的图片永远保持日更新。
本站绝对没有病毒，除了安装杀毒软件，我们建议您的计算机还要安装 防流氓软件 的软件。
本站工作人员都使用“360安全卫士”，免费的，感觉非常好。
本站联系方式：Email:okjustdo@163.com
网页结束，感谢观赏
......
短信过滤关键词(2007-08-20 14:00:00)
摘要：越早开手机的人和手机号越值钱的人,
还有名片满天飞的人,还有到处登记手机号码的人,
看看你每天收到的短信骚扰,垃圾短信的数量有多少,
就知道,我的心情会有多差.
我从前也是一个热衷于短信的人,
很多事情打电话是解决不了问题的,
字面不清楚,听后即忘,等问题都需要短信来解决.
还有谈恋爱的人,热衷于聊天交友的人,
才能理解,对那十个数字的键盘有多热情,
一听到短信响的声音,心情会有多愉快.
现在时代变了,公私广告满天飞,
想见的短信没来,不想看的倒是不请自来数十遍,
短信响一下,就会失望一次.
网络商纵容了给它带来巨量收入的广告短信,
也没有给用户的解决保护办法,
只好靠手机的短信防火墙功能来解决了.
我用的是PPC,原来是想自己写程序的,
因为移动设备要求过高,非得要用eVC来写,
而我对这些东西不在行,
而且看不懂描述文档,无奈之下,只好使用短信大师了,
下面罗列了一些过滤的关键词与号码,供他人参考,供自己备案.
1. 106开头的号码 我很少朋友使用小灵通来发短信
我自己也用过小灵通
但今时今日.........
2. 开放申购
3. 热线
4. 公开发售
5. 特价机票
6. 样板房
7. 三房
8. 地产
9. 疯狂英语
10.租售
11.民航售票 &nb......
牢骚(2007-02-16 15:55:00)
摘要：也许似乎大概是，然而未必不见得。
唯心主义的论据是:[color=FF00FF]好人有好报[/color],这句话究竟是谎言还是真理,在乎你是否相信它.
在中国，每两分钟就有1人死于自杀，8人自杀未遂，你能想像，其中会有一个人是自己吗？
[color=0000FF]只愿一生爱一人[/color],只"愿"而已,相信就算是张学友,也无法实现.
我笑他人太疯颠,他人笑我看不清,我笑他人太痴狂,他人笑我太平常.
每个人都想过自己想过的生活,你想过什么样的生活?
......我不知道......那你过上你想过的生活了吗?
人生之不如意,十常八九，活着本身就已经是对老天爷的一种妥协
我争取,我不强求, 我放弃,我不后悔.......
VB里的MKI(2006-11-29 14:10:00)
摘要：概要
loadTOCNode(1, 'summary');
Visual Basic for Windows 不支持 MKx $ 和早期版本的 Microsoft QuickBasic 和基本专业开发系统 (PDS) 中找到 MS-DOS 转换函数 CVx 系列。 但是, 可编写函数提供此支持使用由 Windows 3.1 hmemcpy API 例程。
本文提供示例例程， 模拟 MKI $ MKL $、 MKS $、 MKD $、 CVI、 CVL、, CVS 和 CVD 函数。
回到顶端
更多信息
loadTOCNode(1, 'moreinformation');
通过放置 ASCII 值是每个字节代表数字值成一个字符串 MKx $ 函数将数值转换为字符串。 Function Description
--------- ---------------------------------------------------------
MKI$ Converts an integer to a 2-byte string
MKL$ Converts a long-integer to a 4-byte string
MKS$ Converts a single precision variable to a 4-byte string
MKD$ Converts a double-precision variable to an 8-byte string
CVx 函数转换回数值用 MKx $ 函数创建字符串。 Function Description</H3>
--------- ---------------------------------------------------------
CVI Converts a 2-byte string created with MKI$ to an integer
CVL Converts a 4-byte string created with MKL$ to a long integer
CVS Converts......
QB 的 超长数值的简单运算(未包含小数点和符号计算)(2005-08-20 11:51:00)
摘要：很多人都会说到用数组来储存各位置上的数字,
而我觉得QB里的字符串特别是不定长字符串,
使用起来很方便,所以我很喜欢用QB的字符串函数
mid$(),instr()等等,方便快捷
不定长字符串最大可以去到32767个字符,
大概已经够用的了,还不够用的话,再定义一个字符数组
转换成十六进制来计算,每一个字符代替两位十六进制数字,够恐怖的了
我觉得我这辈子都不怎么会有这个机会用得上了,否则我该进天文学研究所去了.
DECLARE FUNCTION longx$ (a$, b$) '乘法
DECLARE FUNCTION longqu$ (a$, b$) '除法
DECLARE FUNCTION longadd$ (a$, b$)'加法
DECLARE FUNCTION longsub$ (a$, b$)'减法
DECLARE FUNCTION cut0$ (a$)
DECLARE FUNCTION dao$ (a$)
FUNCTION cut0$ (a$)
c$ = a$
l% = LEN(c$)
DO UNTIL l% <= 1
IF LEFT$(c$, 1) < "1" THEN
l% = l% - 1
c$ = RIGHT$(c$, l%)
ELSE
EXIT DO
END IF
LOOP
cut0$ = c$
END FUNCTION
FUNCTION dao$ (a$)
b$ = a$
l% = LEN(b$)
FOR i% = 1 TO l% \ 2
k$ = MID$(b$, ......