区别"/>
AndAlso,OrElse和And,Or的区别
AndAlso和OrElse应该是vb引入的新运算符。
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 2010下调试通过,以下是结果:
7
70
77
147
175
217
273
287
357
371
378
427
476
497
更多推荐
AndAlso,OrElse和And,Or的区别
发布评论