typevalrefc.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 19 行

Imports System

Class Class1
    Public Value As Integer = 0
End Class

Module Test
    Function Main() As Integer
        Dim val1 As Integer = 0
        Dim val2 As Integer = val1
        val2 = 123
        Dim ref1 As Class1 = New Class1()
        Dim ref2 As Class1 = ref1
        ref2.Value = 123
        If ref1.value <> 123 And ref2.value <> 123 Then
            Throw New Exception("Expected was val1 = 0 and val2 = 123 .")
        End If
    End Function
End Module