Mega Code Archive

 

Categories / VB.Net Tutorial / Data Type

 

Pass Single by value and by reference to a Sub

public class Test    public Shared Sub Main         Dim value As Single         value = 10         DoubleItByVal(value)         Console.WriteLine(value)         value = 10         DoubleItByRef(value)         Console.WriteLine(value)    End Sub     Shared Sub DoubleItByVal(ByVal X As Single)         X *= 2     End Sub     Shared Sub DoubleItByRef(ByRef X As Single)         X *= 2     End Sub End class 10 20