Lambda 表达式 Lambda Expressions (Visual Basic)

Lambda 表达式 Lambda Expressions (Visual Basic)

Lambda 表达式是一个不带名字的函数（function）或子过程（sub），可以用在任何接收委托的地方。Lambda 表达式可以是函数，也可以是子过程，可以是单行的，也可以写成多行。您可以把当前范围的值传递给 lambda 表达式。

注意，RemoveHandler 语句是一个例外，您不可以给委托参数传入一个 lambda 表达式

您使用 Function 或 Sub 关键字创建 lambda 表达式，就像创建普通函数和子过程一样。不过，lambda 表达式包含在一个语句中。

下面例子是一个 lambda 表达式，将参数自增 1 后返回。此例子展示单行和多行的 function 式 lambda 表达式语法

Dim  increment1  =   Function (x) x  +   1
Dim  increment2  =   Function (x)
Return x  +   2
End Function
 
'  Write the value 2.
Console.WriteLine(increment1( 1 ))
 
'  Write the value 4.
Console.WriteLine(increment2( 2 ))

 

下面例子是一个 lambda 表达式，演示子过程的单行和多行 lambda 表达式语法，把值写到控制台。

Dim  writeline1  =   Sub (x) Console.WriteLine(x)
Dim  writeline2  =   Sub (x)
Console.WriteLine(x)
End Sub
 
'  Write "Hello".
writeline1( " Hello " )
 
'  Write "World"
writeline2( " World " )

 

注意到前面的例子中，lambda 表达式赋值给了变量。当您引用该变量时，就调用该 lambda 表达式。您还可以声明 lambda 表达式的同时调用它，看下面的例子。

Console.WriteLine(( Function (num  As   Integer ) num  +   1 )( 5 ))
lambda 表达式可以作为函数的返回值（例子在本文后面的 上下文章节 中），或者作为实参传送给委托类型的参数，像下面列子一样。
Module Module2
 
Sub  Main()
'  下面代码会打印 Success, 因为 4 是偶数.
testResult( 4 ,  Function (num) num  Mod   2   =   0 )
 
'  下面代码会打印 Failure, 因为 5 不大于 10.
testResult( 5 ,  Function (num) num  >   10 )
End Sub
 
'  Sub testResult 接收两个参数，一个 integer 和一个 function 委托，该委托接收 integer 值返回 boolean 值。
'  如果函数接收 integer 的实参并返回 True，则输出 Success，否则输出 Failure。
 
Sub  testResult(ByVal value  As   Integer , ByVal fun  As  Func(Of  Integer ,  Boolean ))
If  fun(value)  Then
Console.WriteLine( " Success " )
Else
Console.WriteLine( " Failure " )
End   If
End Sub
 
End  Module

 

Lambda 表达式语法

Lambda 的语法类似于标准的函数或子过程，区别如下：

• Lambda 表达式没有名字
• Lambda 表达式没有修饰符（modifier），如 Overloads 或 Overrides
• 单行 lambda 函数的返回值类型不使用 As 子句标识，而是从 lambda 表达式主体计算所得值中推断。例如，lambda 表达式的主体是 cust.City = "London"，则其返回值类型是 Boolean。
• 多行 lambda 函数，可以使用 As 子句标识返回类型，或者省略掉 As 子句而自动推断返回类型。当多行 lambda 函数省略掉 As 子句，返回值的类型推断为所有 Return 子句的主导类型。主导类型是数组文本中所有其它类型可以扩大到的唯一类型。如果这个唯一类型不能决定，则主导类型是 Object。例如，返回值列表提供给数组文本包含的值类型有 Integer、Long、Double，则最终数组是 Double 类型。Integer 和 Long 扩大为 Double，且唯一是 Double。这样，Double 就是主导类型。查看详细，请看 Widening and Narrowing Conversions。
• 单行函数的主体必须是一个有返回值的表达式，而不是一个语句。单行函数没有 Return 语句，其返回值是函数体中表达式的值。
• 单行子过程的主体必须是一个单行语句。
• 单行函数或子过程没有 End Function 或 End Sub 语句。
• 您可以用 As 关键字标识 lambda 表达式参数的类型，或者自动推断该类型。要么所有参数类型都标识，要是所有都自动推断。
• Optional 和 Paramarray 参数不被允许
• 泛型参数不被允许

 

上下文

lambda 表达式跟定义它的上下文共享作用范围。它跟容纳范围（containing scope）的内部的其它代码有相同的访问权限，包括访问成员变量、函数或子过程、Me、参数、和本地变量。

访问容纳范围（containing scope）的本地变量和参数可以超出该范围的生命期。只要委托引用的 lambda 表达式不被垃圾收集器收集，就可以访问保持的原始环境的变量。在下面的例子中，变量 target 是 makeTheGame 的本地变量，lambda 表达式 playTheGame 定义在 makeTheGame 中。注意到作为返回值的 lambda 表达式，在 Main子过程中赋值给 takeAGuess，仍然可以访问本地变量 target。

Module Module6
 
Sub  Main()
' 变量 takeAGuess 是一个 Boolean 函数，它存储在 makeTheGame 中设置的目标数字
Dim  takeAGuess  As  gameDelegate  =  makeTheGame()
 
'  设置循环来玩游戏
Dim  guess  As   Integer
Dim  gameOver  =   False
While   Not  gameOver
guess  =   CInt ( InputBox ( " Enter a number between 1 and 10 (0 to quit) " ,  " Guessing Game " ,  " 0 " ))
'  输入 0 表示退出游戏
If  guess  =   0   Then
gameOver  =   True
Else
     '  测试您的猜测，并告知您是否正确。takeAGuess 方法因不同的猜测值而被多次调用
     '  Main 过程访问不了目标值，且它没有被传入。
gameOver  =  takeAGuess(guess)
Console.WriteLine( " Guess of  "   &  guess  &   "  is  "   &  gameOver)
End   If
End   While
 
End Sub
 
Delegate  Function  gameDelegate(ByVal aGuess  As   Integer )  As   Boolean
 
Public   Function  makeTheGame()  As  gameDelegate
 
'  生成目标数字，介于 1 和 10。注意到 target 是一个本地变量，
'  当从 makeTheGame 返回后，它就不能被直接访问了。
Randomize ()
Dim  target  As   Integer   =   CInt ( Int ( 10   *   Rnd ()  +   1 ))
 
'  Print the answer if you want to be sure the game is not cheating
'  by changing the target at each guess.
Console.WriteLine( " (Peeking at the answer) The target is  "   &  target)
 
     '  本游戏返回 lambda 表达式，该 lambda 表达式承载了创建它的上下文的环境，
     '  这个环境包含 target 变量（target number）。注意到仅有当前猜测（current guess）
     '  才是返回 lambda 表达式的参数，而不是 target。
 
'  猜测值跟目标值是否匹配
Dim  playTheGame  =   Function (guess  As   Integer ) guess  =  target
 
Return playTheGame
 
End Function
 
End  Module

 

下面例子演示嵌套 lambda 表达式的大范围访问权。当作为返回值的 lambda 表达式在 Main 中被调用（aDel），它访问这些元素。

• 定义它的类的字段：aField
• 定义它的类的属性：aProp
• 定义它的方法 functionWithNestedLambda 的参数： level1
• functionWithNestedLambda 的本地变量：lovalVar
• 外部 lambda 表达式的参数：level2

Module Module3
 
Sub  Main()
 
     '  创建类的一个实例，属性值 Prop 设为 1
     Dim  lambdaScopeDemoInstance  =
         New  LambdaScopeDemoClass  With  {.Prop  =   1 }
 
     '  变量 aDel 被绑定到 functionWithNestedLambda 返回的嵌套的 lambda 表达式
     Dim  aDel  As  aDelegate  =
        lambdaScopeDemoInstance.functionWithNestedLambda( 2 )
 
     '  现在返回的嵌套的 lambda 表达式被调用，4 变成参数 level3 的值
    Console.WriteLine( " First value returned by aDel:  "   &  aDel( 4 ))
 
     '  改变某些值，以验证 lambda 表达式是否可访问变量，不仅他们的原始值
    lambdaScopeDemoInstance.aField  =   20
    lambdaScopeDemoInstance.Prop  =   30
    Console.WriteLine( " Second value returned by aDel:  "   &  aDel( 40 ))
End Sub
 
Delegate  Function  aDelegate(
    ByVal delParameter  As   Integer )  As   Integer
 
Public  Class LambdaScopeDemoClass
     Public  aField  As   Integer   =   6
     Dim  aProp  As   Integer
 
     Property  Prop()  As   Integer
         Get
            Return aProp
         End   Get
         Set (ByVal value  As   Integer )
            aProp  =  value
         End   Set
     End Property
 
     Public   Function  functionWithNestedLambda(
            ByVal level1  As   Integer )  As  aDelegate
 
         Dim  localVar  As   Integer   =   5
 
         '  当嵌套的 lambda 表达式作为 Main 的 aDel 第一次运行，变量有这些值：
         '  level1 = 2
         '  level2 = 3, Return 语句中，调用 aLambda 后
         '  level3 = 4, aDel 在 Main 中调用后
         '  locarVar = 5
         '  aField = 6
         '  aProp = 1
         '  第二次执行, 更改了两个变量:
         '  aField = 20
         '  aProp = 30
         '  level3 = 40
         Dim  aLambda  =   Function (level2  As   Integer ) _
             Function (level3  As   Integer ) _
                level1  +  level2  +  level3  +  localVar  +  aField  +  aProp
        

          ' 函数返回嵌套的 lambda，3 作为参数 level2 的值
        Return aLambda( 3 )
     End Function
 
End  Class
End  Module

 

转换到委托类型

一个 lambda 表达式可以隐式地转换为兼容的委托类型。有关兼容性的普遍问题（general requirements for compatibility），请看 Relaxed Delegate Conversion。例如，下面代码展示一个 lambda 表达式隐式转换为匹配的委托签名 Func(Of Integer, Boolean)。

'  明确地声明一个委托
Delegate  Function  MultipleOfTen(ByVal num  As   Integer )  As   Boolean
 
'  这个函数匹配委托
Function  IsMultipleOfTen(ByVal num  As   Integer )  As   Boolean
    Return num  Mod   10   =   0
End Function
 
'  这个方法接收一个委托类型的输入参数，checkDelegate 参数也可以是类型 Func(Of Integer, Boolean)
Sub  CheckForMultipleOfTen(ByVal values  As   Integer (),
        ByRef checkDelegate  As  MultipleOfTen)
     For   Each  value In values
         If  checkDelegate(value)  Then
            Console.WriteLine(value  &   "  is a multiple of ten. " )
         Else
            Console.WriteLine(value  &   "  is not a multiple of ten. " )
         End   If
     Next
End Sub
 
 
'  这个方法演示显式地定义的委托（explicitly defined delegate）和 lambda 表达式传给同样的输入参数。
Sub  CheckValues()
     Dim  values  =  { 5 ,  10 ,  11 ,  20 ,  40 ,  30 ,  100 ,  3 }
    CheckForMultipleOfTen(values, AddressOf IsMultipleOfTen)
    CheckForMultipleOfTen(values,  Function (num) num  Mod   10   =   0 )
End Sub

 

下面代码演示 lambda 表达式隐式地转换为匹配的委托签名 Sub(Of Double, String, Double)。

Module Module1
    Delegate  Sub  StoreCalculation(ByVal value  As   Double ,
        ByVal calcType  As   String ,
        ByVal result  As   Double )
 
     Sub  Main()
         '  创建 DataTable 存储信息
         Dim  valuesTable  =   New  DataTable( " Calculations " )
        valuesTable.Columns.Add( " Value " , GetType( Double ))
        valuesTable.Columns.Add( " Calculation " , GetType( String ))
        valuesTable.Columns.Add( " Result " , GetType( Double ))
 
         '  定义 lambda 子过程写信息到 DataTable.
         Dim  writeToValuesTable  =   Sub (value  As   Double , calcType  As   String , result  As   Double )
             Dim  row  =  valuesTable.NewRow()
            row( 0 )  =  value
            row( 1 )  =  calcType
            row( 2 )  =  result
            valuesTable.Rows.Add(row)
         End Sub
 
         '  定义原值
         Dim  s  =  { 1 ,  2 ,  3 ,  4 ,  5 ,  6 ,  7 ,  8 ,  9 }
 
         '  执行计算
         Array .ForEach(s,  Sub (c) CalculateSquare(c, writeToValuesTable))
         Array .ForEach(s,  Sub (c) CalculateSquareRoot(c, writeToValuesTable))
 
         '  显示数据
        Console.WriteLine( " Value "   &  vbTab  &   " Calculation "   &  vbTab  &   " Result " )
         For   Each  row  As  DataRow In valuesTable.Rows
            Console.WriteLine(row( 0 ).ToString()  &  vbTab  &
            row( 1 ).ToString()  &  vbTab  &
            row( 2 ).ToString())
         Next
 
     End Sub
 
 
     Sub  CalculateSquare(ByVal number  As   Double , ByVal writeTo  As  StoreCalculation)
        writeTo(number,  " Square  " , number  ^   2 )
     End Sub
 
     Sub  CalculateSquareRoot(ByVal number  As   Double , ByVal writeTo  As  StoreCalculation)
        writeTo(number,  " Square Root " , Math.Sqrt(number))
     End Sub
End  Module

 

  

当您将 lambda 表达式赋值给委托或者将它们作为实参传给过程时，您可以标识参数名称，但省略他们的数据类型，让类型从委托中取。

 

例子

下面例子定义一个 lambda 表达式，如果 nullable 参数被赋值则返回 True，否则返回 False。

Dim  notNothing  =
     Function (num?  As   Integer ) num IsNot  Nothing
Dim  arg  As   Integer   =   14
Console.WriteLine( " Does the argument have an assigned value? " )
Console.WriteLine(notNothing(arg))
 

 

下面例子定义一个 lambda 表达式，返回数组最后一个元素的索引。

Dim  numbers()  =  { 0 ,  1 ,  2 ,  3 ,  4 ,  5 ,  6 ,  7 ,  8 ,  9 }
Dim  lastIndex  =
     Function (intArray()  As   Integer ) intArray.Length  -   1
For  i  =   0   To  lastIndex(numbers)
numbers(i)  +=   1
Next

 

 

原文：http://msdn.microsoft.com/en-us/library/bb531253(v=VS.100).aspx