VB.NET Sub

17 Mar 2025 | 5 分钟阅读

Sub 过程是 VB.NET 编程中用于执行特定任务的一组独立代码，它不返回值。Sub 过程由 Sub 和 End Sub 语句括起来。Sub 过程类似于用于执行特定任务的 Function 过程，除了它不返回值，而 Function 过程返回值。

定义 Sub 过程

以下是 Sub 过程的语法

[Access_Specifier ] Sub Sub_name [ (parameterList) ] 
[ Block of Statement to be executed ]
End Sub

其中，

Access_Specifier: 它定义了过程的访问级别，例如 public、private 或 friend、Protected 等，以及关于重载、重写、隐藏以访问该方法的信息。
Sub_name: Sub_name 表示 Sub 的名称，该名称应该是唯一的。
ParameterList: 它定义了用于从方法发送或检索数据的参数列表。

以下是定义 Sub 方法类型的不同方法。

Public Sub getDetails()
' Statement to be executed
End Sub

Private Sub GetData( ByVal username As String) As String
' Statement to be executed
End Sub

Public Function GetData1( ByRef username As String, ByRef userId As Integer)
' Statement to be executed
End Sub

示例： 编写一个简单的程序，在 VB.NET 中传递 Sub 过程的空、单个或双参数。

Sub_Program.vb

Module Sub_Program
    Sub sample()
        Console.WriteLine("Welcome to JavaTpoint")
    End Sub

    Sub circle(ByVal r As Integer)
        Dim Area As Integer
        Const PI = 3.14
        Area = PI * r * r
        Console.WriteLine(" Area Of circle is : {0}", Area)
    End Sub

    ' Create the SumOfTwo() Function and pass the parameters.
    Sub SumOfTwo(ByVal n1 As Integer, ByVal n2 As Integer)
        ' Define the local variable.
        Dim sum As Integer = 0
        sum = n1 + n2
        Console.WriteLine(" Sum of two number is : {0}", sum)
    End Sub

    Sub SubtractionOfTwo(ByVal n1 As Integer, ByVal n2 As Integer)
        ' Define the local variable.
        Dim subtract As Integer
        subtract = n1 - n2
        Console.WriteLine(" Subtraction of two number is : {0}", subtract)
    End Sub

    Sub MultiplicationOfTwo(ByVal n1 As Integer, ByVal n2 As Integer)
        ' Define the local variable.
        Dim multiply As Integer
        multiply = n1 * n2
        Console.WriteLine(" Multiplication of two number is : {0}", multiply)
    End Sub

    Sub Main()
        ' Define the local variable a, b and rad.
        Dim a, b, rad As Integer
        sample() ' call sample() procedure
        Console.WriteLine(" Please enter the First Number : ")
        a = Console.ReadLine()
        Console.WriteLine(" Second Number is : ")
        b = Console.ReadLine()

        SumOfTwo(a, b) 'call SumOfTwo() Function
        SubtractionOfTwo(a, b) 'call SubtractionOfTwo() Function
        MultiplicationOfTwo(a, b) 'call MultiplicationOfTwo() Function

        Console.WriteLine(" Enter the radius of circle : ")
        rad = Console.ReadLine()
        circle(rad)
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub
End Module

输出

在 VB.NET 编程语言中，我们可以通过两种不同的方式传递参数

按值传递参数
按引用传递参数

按值传递参数

在 VB.NET 中，按值传递参数是向 Sub 方法传递值的默认机制。当调用该方法时，它仅将参数的实际值复制到 Sub 过程的正式方法中，以便为每个参数创建一个新的存储位置。因此，对主函数的实际参数所做的更改不会影响 Sub 过程的正式参数。

语法

Sub Sub_method( ByVal parameter_name As datatype )
[ Statement to be executed]
End Sub

在上述语法中，ByVal 用于声明 Sub 过程中的参数。

让我们创建一个程序来理解按值传递参数的概念。

Passing_value.vb

Imports System
Module Passing_value
    Sub Main()
        ' declaration of local variable
        Dim num1, num2 As Integer
        Console.WriteLine(" Enter the First number")
        num1 = Console.ReadLine()
        Console.WriteLine(" Enter the Second number")
        num2 = Console.ReadLine()
        Console.WriteLine(" Before swapping the value of 'num1' is {0}", num1)
        Console.WriteLine(" Before swapping the value of 'num2' is {0}", num2)
        Console.WriteLine()

        'Call a function to pass the parameter for swapping the numbers.
        swap_value(num1, num2)
        Console.WriteLine(" After swapping the value of 'num1' is {0}", num1)
        Console.WriteLine(" After swapping the value of 'num2' is {0}", num2)
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub

    ' Create a swap_value() method
    Sub swap_value(ByVal a As Integer, ByVal b As Integer)
        ' Declare a temp variable
        Dim temp As Integer
        temp = a ' save the value of a to temp
        b = a   ' put the value of b into a
        b = temp ' put the value of temp into b
    End Sub
End Module

输出

按引用传递参数

引用参数是内存位置中变量的引用。引用参数用于通过 Sub 过程中的 ByRef 传递变量的引用。当我们传递引用参数时，它不会为子方法的正式参数创建新的存储位置。此外，引用参数表示与传递给方法的实际参数相同的内存位置。因此，当我们更改正式参数的值时，实际参数值会自动在内存中更改。

按引用传递参数的语法

Sub Sub_method( ByRef parameter_name, ByRef Parameter_name2 )
[ Statement to be executed]
End Sub

在上述语法中，ByRef 关键字用于传递 Sub 过程的引用参数。

让我们创建一个程序，使用 ByRef 关键字交换两个变量的值。

Passing_ByRef.vb

Imports System
Module Passing_ByRef
    Sub Main()
        ' declaration of local variable
        Dim num1, num2 As Integer
        Console.WriteLine(" Enter the First number")
        num1 = Console.ReadLine()
        Console.WriteLine(" Enter the Second number")
        num2 = Console.ReadLine()
        Console.WriteLine(" Before swapping the value of 'num1' is {0}", num1)
        Console.WriteLine(" Before swapping the value of 'num2' is {0}", num2)
        Console.WriteLine()

        'Call a function to pass the parameter for swapping the numbers.
        swap_Ref(num1, num2)
        Console.WriteLine(" After swapping the value of 'num1' is {0}", num1)
        Console.WriteLine(" After swapping the value of 'num2' is {0}", num2)
        Console.WriteLine(" Press any key to exit...")
        Console.ReadKey()
    End Sub

    ' Create a swap_Ref() method
    Sub swap_Ref(ByRef a As Integer, ByRef b As Integer)
        ' Declare a temp variable
        Dim temp As Integer
        temp = a ' save the value of a to temp
        a = b   ' put the value of b into a
        b = temp ' put the value of temp into b
    End Sub
End Module

输出

下一主题VB.NET 类和对象

← 上一步下一步 →

VB.NET Sub

定义 Sub 过程

按值传递参数

按引用传递参数

Passing_ByRef.vb

联系信息

关注我们

教程

面试题

在线编译器

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

VB.NET 教程

VB.NET Sub

定义 Sub 过程

按值传递参数

按引用传递参数

Passing_ByRef.vb

相关帖子

VB.NET 枚举

ListView 控件

OpenFile 对话框

VB.NET MDI 窗体

控制语句

NameValueCollection

VB.NET 动态数组

颜色对话框

VB.NET List

VB.NET Continue 语句

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器