VB6与VB.NET相同IF语句执行结果差异排查

核心原因：字符串比较规则差异 #

VB6默认采用二进制逐字节比较，全角逗号“，”与半角逗号“,”的Unicode编码值完全不同，因此条件不成立，不会执行A分支。

VB.NET默认使用基于当前系统文化的比较规则，在中文文化环境下，全角标点会被视为对应半角标点的等价字符，所以str = ","的比较结果为True，导致IF分支被触发执行A。

关于“监视条件返回false但仍执行A”的矛盾 #

你观察到的监视窗口显示条件为false，是因为监视窗口的比较规则与代码运行时不一致：监视窗口默认使用二进制比较，而代码运行时采用了文化相关的宽松比较规则。

可以通过显式指定比较规则验证这一点：

' 强制使用二进制比较，对齐VB6行为
If String.Compare(str, ",", StringComparison.Ordinal) = 0 Or _
   String.Compare(str, ",", StringComparison.Ordinal) = 0 Or _
   String.Compare(str, """", StringComparison.Ordinal) = 0 Then
    ' execute A
End If

修改后，全角逗号的情况下条件会返回false，不会执行A分支，和VB6行为完全一致。

统一行为的解决办法 #

如果需要和VB6保持严格一致的字符串比较逻辑，有两种方案：

• 在代码文件开头添加Option Compare Binary，让当前文件内所有字符串比较默认使用二进制规则。
• 每次字符串比较时，显式调用String.Compare方法并传入StringComparison.Ordinal参数。

内容的提问来源于stack exchange，提问作者Kuleh