VB.Net - Sub过程（子程序）

由 yiyohunter 创建，youj 最后一次修改 2016-12-12 正如我们在上一章中提到的，Sub过程是不返回任何值的过程。 我们在所有的例子中一直使用Sub过程Main。 到目前为止，我们已经在这些教程中编写控制台应用程序。 当这些应用程序开始时，控制转到主子程序，它反过来运行构成程序主体的任何其他语句。 定义子过程 Sub语句用于声明子过程的名称，参数和主体。 Sub语句的语法是： [Modifiers] Sub SubName [(ParameterList)] [Statements]End Sub Modifiers 修饰符 ：指定过程的访问级别;可能的值有：Public, Private, Protected, Friend, Protected Friend and information regarding overloading, overriding, sharing, and shadowing. SubName 子名 ：表示该子的名字 ParameterList 参数列表 ：指定参数的列表示例以下示例演示了子过程CalculatePay，它接受两个参数小时和工资，并显示员工的总工资： Sub CalculatePay(ByRef hours As Double, ByRef wage As Decimal) 'local variable declaration Dim pay As Double pay = hours * wage Console.WriteLine("Total Pay: {0:C}", pay) End Sub Sub Main() 'calling the CalculatePay Sub Procedure CalculatePay(25, 10) CalculatePay(40, 20) CalculatePay(30, 27.5) Console.ReadLine() End SubEnd Module当上述代码被编译和执行时，它产生了以下结果： Total Pay: $250.00Total Pay: $800.00Total Pay: $825.00按值传递参数这是将参数传递给方法的默认机制。 在这种机制中，当调用方法时，为每个值参数创建一个新的存储位置。 实际参数的值被复制到它们中。 因此，对方法中的参数所做的更改对参数没有影响。 在VB.Net中，可以使用ByVal关键字声明引用参数。 下面的例子演示了这个概念： Module paramByval Sub swap(ByVal x As Integer, ByVal y As Integer) Dim temp As Integer temp = x ' save the value of x x = y ' put y into x y = temp 'put temp into y End Sub Sub Main() ' local variable definition Dim a As Integer = 100 Dim b As Integer = 200 Console.WriteLine("Before swap, value of a : {0}", a) Console.WriteLine("Before swap, value of b : {0}", b) ' calling a function to swap the values ' swap(a, b) Console.WriteLine("After swap, value of a : {0}", a) Console.WriteLine("After swap, value of b : {0}", b) Console.ReadLine() End SubEnd Module当上述代码被编译和执行时，它产生了以下结果： Before swap, value of a :100Before swap, value of b :200After swap, value of a :100After swap, value of b :200它表明，虽然它们在函数内部已更改，但值中没有变化。 通过引用传递参数引用参数是对变量的存储器位置的引用。 当您通过引用传递参数时，与值参数不同，不会为这些参数创建新的存储位置。 参考参数表示与提供给该方法的实际参数相同的存储器位置。 在VB.Net中，可以使用ByRef关键字声明引用参数。 以下示例演示了这一点： Module paramByref Sub swap(ByRef x As Integer, ByRef y As Integer) Dim temp As Integer temp = x ' save the value of x x = y ' put y into x y = temp 'put temp into y End Sub Sub Main() ' local variable definition Dim a As Integer = 100 Dim b As Integer = 200 Console.WriteLine("Before swap, value of a : {0}", a) Console.WriteLine("Before swap, value of b : {0}", b) ' calling a function to swap the values ' swap(a, b) Console.WriteLine("After swap, value of a : {0}", a) Console.WriteLine("After swap, value of b : {0}", b) Console.ReadLine() End SubEnd Module当上述代码被编译和执行时，它产生了以下结果： Before swap, value of a : 100Before swap, value of b : 200After swap, value of a : 200After swap, value of b : 100