最为常用的VB代码大全.doc

用Mid$命令超速字符串添加操作大家都知道,&操作符的执行速度是相当慢的,特别是处理长字符串时。当必须重复地在同一变量上附加字符时,有一个基于Mid$命令的技巧可以使用。基本思路就是:预留一个足够长的空间存放操作的结果。下面是应用这个技术的一个例子。假设要建立一个字符串,它要附加从1开始的10000个整数:"1234567...999910000"。下面是最简单的实现代码:res=""Fori=1to10000:res=res&Str(i):Next<>face=宋体>代码虽然简单,但问题也很明显:Res变量将被重分配10000次。下面的代码实现同样的目的,但效果明显好转:DimresAsStringDimiAsLongDimindexAsLong’预留足够长的缓冲空间res=Space(90000)’指针变量,指出在哪里插入字符串index=1’循环开始Fori=1to10000substr=Str(i)length=Len(substr)’填充字符串的相应区间段数值Mid$(res,index,length)=substr’调整指针变量index=index+lengthNext’删除多余字符res=Left$(res,index-1)测试表明:在一个333MHz的计算机上,,!代码虽然长了些,可是速度却提高了25倍之多。呵呵,由此看来:代码也不可貌相啊从头开始删除集合项目删除集合中的所有内容有许多方法,其中有些非常得迅速。来看看一个包含10,000个项目的集合:DimcolAsNewCollection,iAsLongFori=1To10000 ,CStr(i)Next可以从末尾位置为起点删除集合内容,如下:Fori=-,如下:Fori=<>face=宋体>试验证明,后者要快于前者百倍多,。原因在于:当引用接近末尾位置的集合项目时,VB必须要从第1个项目开始遍历整个的项目链。<>face=宋体>更有趣的是,如果集合项目的数量加倍,那么从末尾开始删除与从头开始删除,前者要比后者花费的时间将成倍增长,比如前者是24秒,!最后提醒您:删除集合的所有内容的最快方法就是“毁灭”它,使用下面的语句:Setcol=NewCollection对于一个包含20,000个项目的集合,,这比使用最快的循环操作进行删除也要快2倍左右。用InStr函数实现代码减肥可以采用“旁门左道”的方式使用Instr函数实现代码的简练。下面是一个典型的例子,检测字符串中是否包含一个元音字母:1、普通的方法:IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I"OrUCase$(char)="O"OrUCase$(char)="U"Then’itisavowelEndIf2、更加简练的方法:IfInStr("AaEeIiOoUu",char)Then’itisavowelEndIf同样,通过单词中没有的字符作为分界符,使用InStr来检查变量的内容。下面的例子检查Word中是否包含一个季节的名字:1、普通的方法:IfLCase$(word)="winter"OrLCase$(word)="spring"OrLCase$(word)=_"summer"OrLCase$(word)="fall"Then’itisaseason’snameEndIf2、更加简练的方法:IfInstr(";winter;spring;summer;fall;",";"&word&";")Then’itisaseason’snameEndIf有时候,甚至可以使用InStr来替代SelectCase代码段,但一定要注意参数中的字符数目。下面的例子中,转换数字0到9的相应英文名称为阿拉伯数字:1、普通的方法:SelectCaseLCase$(word)Case"zero"result=0Case"one"result=1Case"two"result=2Case"three"result=3Case"four"result=4Case"five"result=5Case"six"result=6Case"seven"result=7Case"eight"result=8Case"nine"result=9EndSelect2、更加简练的方法:result=InStr(";zero;;one;;;two;;;three;four;;five;;s