文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

可以采用“旁门左道”的方式使用Instr函数实现代码的简练。下面是一个典型的例子，检测字符串中是否包含一个元音字母： 1、普通的方法： IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I"OrUCase$(char)="O"OrUCase$(char)="U"Then 'itisavowel EndIf 2、更加简练的方法： IfInStr("AaEeIiOoUu",char)Then 'itisavowel EndIf 同样，通过单词中没有的字符作为分界符，使用InStr来检查变量的内容。下面的例子检查Word中是否包含一个季节的名字：1、普通的方法： IfLCase$(word)="winter"OrLCase$(word)="spring"OrLCase$(word)=_"summer"OrLCase$(word)="fall"Then 'itisaseason'sname EndIf 2、更加简练的方法： IfInstr(";winter;spring;summer;fall;",";"&word&";")Then 'itisaseason'sname EndIf 有时候，甚至可以使用InStr来替代Select Case代码段，但一定要注意参数中的字符数目。下面的例子中，转换数字0到9的相应英文名称为阿拉伯数字：1、普通的方法： SelectCaseLCase$(word) Case"zero" result=0 Case"one" result=1 Case"two" result=2 Case"three" result=3 Case"four" result=4 Case"five" result=5 Case"six" result=6 Case"seven" result=7 Case"eight" result=8 Case"nine" result=9 EndSelect 2、更加简练的方法： result=InStr(";zero;;one;;;two;;;three;four;;five;;six;;;seven;eight;nine;",";"&LCase$(word)&";")\6->

上一篇:函数名巧做局部变量

下一篇:精用Boolean表达式，让代码再减肥