Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Tutorialspoint

Answer 1

Module Module1
    Sub Main()
        Dim l1 As Integer = 1
        Reference(l1, 5)
        Console.WriteLine("Result=" & l1)
        l1=0
    End Sub
    Sub Reference(ByRef v1 As Integer, ByVal v2 As Integer)
        Do
            v1 = v2
        Loop Until 0 = 0
        Do While False
            v1 = v1 + v2
        Loop
    End Sub
End Module

Advertisements
Loading...

We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.