AndAlso，OrElse和And，Or的区别

 

AndAlso和OrElse应该是vb.net引入的新运算符。
AndAlso，OrElse相对于and，or最大的特性是会自动实现“最短路径”。
所谓“最短路径”就是指：当第一个被比较的运算式的结果已经能决定运算的最终结果时，就不会再去比较其他运算式，因此可以避免掉额外且不需要的比较运算式。

举个很简单的例子说明下：

 1        Dim a As Int16 = 1
 2        Dim b As Int16 = 2
 3
 4        '用or的话，a=1，b=2都会被比较
 5        If a = 1 Or b = 2 Then
 6            'xxxxx
 7        End If
 8
 9        '用OrElse的话，只比较了第一个条件a=1
10        If a = 1 OrElse b = 2 Then
11            'xxxx
12        End If
当用or的时候，a=1和b=2这2个条件，都会被判断。而用orelse，则当前面一个条件（a=1)已经能决定最终结果的话，程序就不会在判断第二个条件（b=2）了。

类似的情况还有：
 1        Dim a As Int16 = 1
 2        Dim b As Int16 = 2
 3
 4        '用and的话，a=999，b=2,(a + b) * (b - a) = 3 都会被比较
 5        If a = 999 And b = 2 And (a + b) * (b - a) = 3 Then
 6            'xxxxx
 7        End If
 8
 9        '用AndAlso的话，只比较了第一个条件a=999,由于已经是false了，所以后面的运算式不再判断
10        If a = 999 AndAlso b = 2 AndAlso (a + b) * (b - a) = 3 Then
11            'xxxx
12        End If
当出现以上情况时，AndAlso和OrElse的效率要高于and，or。
综上所述：

andalso 只要第一个判断式不成立，则后面的运算符将不再判断
orelse  只要第一个判断式成立，则后面的运算符将不再判断,如果第一个判断式不成立，则继续执行第二个判断式，以次类推。

应用示例：

Public Class Form1
    '1-500 能被7整除且里面含7的数字
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        For i = 0 To 500
            If i Mod 7 = 0 AndAlso (Mid(i, 1, 1) = "7" OrElse Mid(i, 2, 1) = "7" OrElse Mid(i, 3, 1) = "7") Then
                Debug.WriteLine(RSet(i, 3)) '把数字格式化为长度为3的字符串，且右对齐
            End If
        Next
    End Sub
End Class

第二种方法： 配合 InStr 函数实现

Public Class Form1
    '0-500 能被7整除且里面含7的数字
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        For i = 0 To 500
            If i Mod 7 = 0 AndAlso InStr(CStr(i), 7) > 0 Then
                Debug.WriteLine(RSet(i, 3)) '把数字格式化为长度为3的字符串，且右对齐
            End If
        Next
    End Sub
End Class

第三种方法：配合 Like 运算符实现

Public Class Form1
    '0-500 能被7整除且里面含7的数字
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        For i = 0 To 500
            If i Mod 7 = 0 AndAlso i Like "*7*" Then
                Debug.WriteLine(RSet(i, 3)) '把数字格式化为长度为3的字符串，且右对齐
            End If
        Next
    End Sub
End Class

此程序在 vb.net 2010下调试通过，以下是结果：
  7
 70
 77
147
175
217
273
287
357
371
378
427
476
497