'*************************************************************************
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 只要第一个判断式成立，则后面的运算符将不再判断,如果第一个判断式不成立，则继续执行第二个判断式，以次类推。
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim i As Int32
For i = 1 To 20
'当第一个条件不成立，AndAlso后面的表达式将不执行。若第一个表达式成立，则进行对第二个表达式的判断
If i < 10 AndAlso i Mod 2 = 0 Then
Debug.Print(i & "小于10的偶数")
'若第一个判断表达式成立，则后面的运算符将不再判断,如果第一个判断表达式不成立，
'则继续执行第二个判断表达式
'以下当i<10时，第一个不成立，则去判断OrElse 后面的 i Mod 2 = 0
'当i>10时，第一个成立，程序将不再判断OrElse 后面的 i Mod 2 = 0
ElseIf i > 10 OrElse i Mod 2 = 0 Then '
Debug.Print(i & "大于10的数")
End If
Next
End Sub
执行结果：
2小于10的偶数
4小于10的偶数
6小于10的偶数
8小于10的偶数
10大于10的数
11大于10的数
12大于10的数
13大于10的数
14大于10的数
15大于10的数
16大于10的数
17大于10的数
18大于10的数
19大于10的数
20大于10的数