niufen 发表于 2014-7-30 09:05:44

vb中if elseif语句不向下执行

If nnn <> 0 Then
                        stry = Mid(a(X1 + 1), 1, nnn - 1)         
                        strb = Mid(a(X1 + 1), nnn + 1, n1 - nnn)
                        nnn = 0
                     End If

'---------------查找-------------------------------
                         If InStr(stry, "18") <> 0 Then
               
                           wy18(t) = "18"               
                  
                         ElseIf InStr(stry, "17") <> 0 Then
               
                           wy17(t) = "17"                                    
                         ElseIf InStr(stry, "15") <> 0 Then
               
                           wy15(t) = "15"               
                         ElseIf InStr(stry, "89") <> 0 Then
               
                           wy89(t) = "89"                                       
                         ElseIf InStr(stry, "13") <> 0 Then
               
                           wy13(t) = "13"               
                         End If
为什么只执行前两段，后面的筛选都不执行呢？
输出wy18(t) wy17(t)都没问题 可是wy15(t)后面几个就不输出
页: [1]
查看完整版本: vb中if elseif语句不向下执行