Option Strict On
Public Class YourClass
Public Name As String
Public GPA As Double
End Class
Public Structure YourStructure
Public Name As String
Public GPA As Double
End Structure
Public Class Test
Public Shared Sub Main()
Dim valueByRef As New YourClass()
Dim valueByValue As New YourStructure()
valueByRef.Name = "Jill"
valueByRef.GPA = 92.3
valueByValue.Name = "Jill"
valueByValue.GPA = 92.3
Dim ref2 As YourClass = valueByRef
Dim value2 As YourStructure = valueByValue
ref2.GPA += 2
value2.GPA += 2
Console.WriteLine("{0}'s GPA is: {1}", valueByRef.Name, valueByRef.GPA)
Console.WriteLine("{0}'s GPA is: {1}", valueByValue.Name, valueByValue.GPA)
End Sub
End Class
|