VB 在win7和xp的不同

[michaelbob518]

msgbox  InStr(1, "zlhis", "@", vbTextCompare)

就这样一句代码，在win7的执行下返回结果是1，可是在xp下返回结果是0，按方法功能描述，0应该是正确的，请问如何让win7下也能返回正常的结果。

[一如既往哈]

在我的win7下返回的是0哦......

[michaelbob518]

引用 1 楼 Topc008 的回复:

在我的win7下返回的是0哦......

啊？不是吧。。你是win7的64位还是32位？

[michaelbob518]

引用 1 楼 Topc008 的回复:

在我的win7下返回的是0哦......

[michaelbob518]

额，没有人遇到过这种情况吗？

[赵4老师]

Dim s As String
s="zlhis"
msgbox  IIF(InStr(1, s, "@", vbTextCompare)=1 and mid(s,1,1)<>"@",0,InStr(1, s, "@", vbTextCompare))

[michaelbob518]

引用 5 楼 zhao4zhong1 的回复:

Dim s As String
s="zlhis"
msgbox  IIF(InStr(1, s, "@", vbTextCompare)=1 and mid(s,1,1)<>"@",0,InStr(1, s, "@", vbTextCompare))

额，这个处理办法是不错。。问题我是不明白为什么会不同的结果。。。是我系统没装好？