您所在位置：主题：[原创]发现 vb 脚本bug
lingdlz
[专家分：610] 发布于 2006-10-22 11:32:00
今天写一个脚本,发现个bug,如下:
sub ClickBtn(key)
dim bef,rch
bef=shForm.showIn.value
rch=right(bef,1)
if(InStr("/*-+",rch) and InStr("/*-+",key)) then
msgbox "输入错误 !",vbOkOnly+vbInformation,"错误"
call BtnClear()
exit sub
end if
shForm.showIn.value=bef&key
end sub
上面是出现bug的地方,当 rch='-' key='+' 或者 rch='/' key='*' 时本来应该
进入if 语句执行,但是却怎么也进不去,我找了很久,发现了两个很奇怪的数对
1&2 3&4 当执行 msgbox(cBool(1 and 2)) msgbox(cBool(2 and 1))
msgbox(cBool(3 and 4)) msgbox(cBool(4 and 3))时这几个结果都是 false
试了其它的数却是正常,不知道这是不是 bug ,也不知道还有没有这样的数对
浏览器 IE6.0
sub ClickBtn(key)
dim bef,rch
bef=shForm.showIn.value
rch=right(bef,1)
if(InStr("/*-+",rch) and InStr("/*-+",key)) then
msgbox "输入错误 !",vbOkOnly+vbInformation,"错误"
call BtnClear()
exit sub
end if
shForm.showIn.value=bef&key
end sub
上面是出现bug的地方,当 rch='-' key='+' 或者 rch='/' key='*' 时本来应该
进入if 语句执行,但是却怎么也进不去,我找了很久,发现了两个很奇怪的数对
1&2 3&4 当执行 msgbox(cBool(1 and 2)) msgbox(cBool(2 and 1))
msgbox(cBool(3 and 4)) msgbox(cBool(4 and 3))时这几个结果都是 false
试了其它的数却是正常,不知道这是不是 bug ,也不知道还有没有这样的数对
浏览器 IE6.0
