VB6 multiple IF statement奇妙な問題

Question

IFステートメントで複数の条件で奇妙な問題が発生しました。

If VAR1 = "SCRT" And InStr("|TEC|FIN|", "|" & VAR2 & "|")) And VAR3 = 1 Then 

そして今、私は声明に別の条件を実装する：この値では

If VAR1 = "SCRT" And InStr("|TEC|FIN|", "|" & VAR2 & "|")) And (VAR3 = 1 or VAR3 = 15) Then 

を： VAR1： ""（空の） VAR2： "FIN" 最後の作業バージョンは次のようになります VAR3：1

デバッグ時に問題なく動作するコードです。奇妙なことがコンパイルされ、実稼働環境で実行されているが、最初の条件が正常でなくても条件が満たされている。

すでにチェックする値を記録しています。 運用環境には同じファイル（ライブラリ）があります。

条件のほかに変更されたのは、このモジュールの最初のOption Explicitです。

ありがとうございます！

Answer 1

嫌なことはありませんが、それは構文解析するのが難しく、正当な理由もありません。 Andの条件を扱うときは、ネストされたIfを使ってはるかに良いでしょう。

If VAR1 = "SCRT" Then 
If InStr("|TEC|FIN|", "|" & VAR2 & "|")) > 0 Then 
    If (VAR3 = 1) or (VAR3 = 15) Then 

これにより、短絡が可能になります。それ以外の場合はVB6では使用できません。コードが1行にあるという理由だけで、コードはより速く実行されません。

2つの変更がテストIf Instr > 0ではなく、If Instrです。はい、VBはTrue/False、に成功したテストを評価しますが、という表現のNotは決して評価されません。これはいつかあなたに噛まれます。それを信じる。 （ - ：

第二の変化：私はルールがありますOr条件の優先順位を強制するために括弧を使用していますが、少なくともそれを期待するときにIf VAR3 = (1 Or VAR3) = 15のようなものを得ることができ、明示的うと何の驚きがない

。。。