VB6多重IF聲明離奇問題

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 s要好得多，最可能的條件首先放置，最昂貴的測試放在可能的地方。這是更清晰，幾乎肯定更快：

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

這允許短路，否則在VB6中不可用。代碼不會因爲它在一行上而運行得更快。

兩個變化：測試If Instr > 0而不僅僅是If Instr。是的，VB將評估一個成功的測試，以True/False，但將永遠不會計算表達式的Not到False，它總有一天會咬你。相信它。 （ - ：

改變二：我用括號來強制改變優先順序爲Or條件有規定，但是當你最不期望它你可以得到類似If VAR3 = (1 Or VAR3) = 15要明確，沒有驚喜

。