杭州交通信息网春树秋霜图多少钱:VB超难题,高手进入
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/03 06:44:03
现在有一个字串符 "ADFKLZJFASFIO撒旦案犯我人发在c从"
如何让VB识别里面是否存在 "AD" "KL" NT" "我" "C" 并且不区分大小写!
如何让VB识别里面是否存在 "AD" "KL" NT" "我" "C" 并且不区分大小写!
应用instr()函数吧
格式：
y=instr(源字符串$,子字串$)
试在源字串中找子字串并反回起始位置，如果返回值是0则说明不存在，举例：
函数表达式=结果
instr("abcd","cd")=3
instr("abcd","d")=4
instr("abcd","e")=0
这是第一个问题
第二个问题是：不区分大小写。
那么只需把源字串和子字串同时改为大写或小写，再执行比较就行(查找字串也可认为是比较运算)
所以，要VB识别里面是否存在 "AD" "KL" NT" "我" "C" 并且不区分大小写，可以这样:
dim SourceStr as string
dim a1 as boolean,a2 as boolean, ... ,a5 as boolean
SourceStr="ADFKLZJFASFIO撒旦案犯我人发在c从"
SourceStr=upcase(SourceStr) '全部字母改为大写:应用upcase()函数
a1=instr(sourcestr,upcase("Ad"))>0 '如果含有"AD"(不分大小写)
a2=...自已写
a3=
...
a5=...
if a1 and a2 and a3 and ... and a5 then Msgbox"xxxxxx"