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 的相等性，並在控製台屏幕上打印了適當的消息。

---