If Bool1 And Bool2 Then

同时计算Bool1和Bool2

If Bool1 AndAlso Bool2 Then

当且仅当Bool1为真时计算Bool2。

对于所有那些说副作用是邪恶的人来说:在一种情况下有两个副作用是好的，那就是同时读取两个文件对象。

While File1.Seek_Next_Row() And File2.Seek_Next_Row()
    Str1 = File1.GetRow()
    Str2 = File2.GetRow()
End While

使用And可以确保每次检查条件时都使用一行。而AndAlso可能会读取File1的最后一行，而不消耗File2的行。

当然，上面的代码不会起作用，但我一直在使用这样的副作用，不会像有些人让你相信的那样，认为它是“坏”或“邪恶”的代码。它易于阅读和高效。

And运算符求两边的值，而AndAlso运算符求右边的值当且仅当左边为真。

一个例子:

If mystring IsNot Nothing And mystring.Contains("Foo") Then
  ' bla bla
End If

如果mystring = Nothing，则会抛出异常

If mystring IsNot Nothing AndAlso mystring.Contains("Foo") Then
  ' bla bla
End If

这个不抛出异常。

所以如果你来自c#世界，你应该像使用&&一样使用AndAlso。

更多信息请访问:http://www.panopticoncentral.net/2003/08/18/the-ballad-of-andalso-and-orelse/

And操作符将在继续执行之前检查语句中的所有条件，而Andalso操作符将在知道条件为false时停止。例如:

if x = 5 And y = 7

检查x是否等于5,y是否等于7，如果两者都为真，则继续。

if x = 5 AndAlso y = 7

检查x是否等于5。如果不是，它不会检查y是否为7，因为它知道条件已经为假。(这叫做短路。)

通常人们使用短路方法，如果有理由显式地不检查第二部分，如果第一部分不为真，比如如果检查它会抛出异常。例如:

If Not Object Is Nothing AndAlso Object.Load()

如果使用And而不是AndAlso，它仍然会尝试Object.Load()，即使它什么都不是，这将抛出异常。

And / AndAlso Or / OrElse实际上非常有用。考虑下面的代码，如果函数DoSomethingWihtAandB返回False，它可能不会设置A和/或B:

Dim A,B,C,D As Object
If DoSomethingWithAandB(A,B)=True And A=1 And B=2 Then C=3

如果DoSomethingWithAandB返回False，它将崩溃，因为它将在And之后继续计算，A和B将等于Nothing

Dim A,B,C,D As Object
If DoSomethingWithAandB(A,B)=True AndAlso A=1 AndAlso B=2 Then C=3

如果DoSomethingWithAandB返回False，它不会崩溃，因为它将在DoSomethingWithAandB(A,B)=True时停止求值，因为返回的是False。AndAlso阻止对条件进行任何进一步的计算(因为第一个条件失败了)。OrElse的工作原理与此相同。逻辑链中求值的第一个True将停止任何进一步求值。

理解:用语言而不是用密码来理解:

用例:使用“And”，编译器将检查所有条件，所以如果你检查一个对象可能是“Nothing”，然后你检查它的一个属性，你将会有一个运行时错误。 但是对于AndAlso，如果条件中第一个“false”，它会检查下一个，这样就不会出现错误。