VB.NET Array ReferenceEquals()用法及代码示例

ReferenceEquals() 方法用于检查两个数组引用的相等性。

用法:

Function ReferenceEquals(ByVal arr1() as object, ByVal arr2() as object) as Boolean

参数：

• Arr1: 指定要匹配的整数数组。
• Arr2: 指定要匹配的整数数组。

返回值：如果数组的两个引用相等，则返回 True，否则返回 False。

程序/源代码：

下面给出了演示 Array 类的 ReferenceEquals() 方法的源代码。给定的程序已成功编译并执行。

'VB.NET program to demonstrate the ReferenceEquals() 
'method of Array class.

Imports System

Module Module1
    Sub Main()
        Dim arr1() As Integer = {10, 20, 30, 20, 30}
        Dim arr2() As Integer = {10, 20, 30, 20, 30}

        If Array.ReferenceEquals(arr1, arr2) Then
            Console.WriteLine("References arr1 and arr2 are equal")
        Else
            Console.WriteLine("References arr1 and arr2 are not equal")
        End If

        If Array.ReferenceEquals(arr1, arr1) Then
            Console.WriteLine("References arr1 and arr1 are equal")
        Else
            Console.WriteLine("References arr1 and arr1 are not equal")
        End If
    End Sub
End Module

输出：

References arr1 and arr2 are not equal
References arr1 and arr1 are equal
Press any key to continue . . .

说明：

在上面的程序中，我们创建了一个包含 Main() 函数的模块 Module1。 Main() 函数是程序的入口点。

在 Main() 函数中，我们创建了两个数组 arr1 和 arr2。在这里，我们检查了引用 arr1 和 arr2 的相等性，并在控制台屏幕上打印了适当的消息。

---