Función swap parámetros de referencia Curso de Programación Visual Basic

Lección:

Funciones


Ejercicio:

Función swap parámetros de referencia 6


Objetivo:

Cree una función denominada "Swap" para intercambiar los valores de dos números enteros, que se pasan por referencia.

Un ejemplo de uso podría ser:

int x=5, y=3;
Swap(ref x, ref y);
Console.WriteLine("x={0}, y={1}", x, y);
(que debe escribir "x=3, y=5")


Código:

Imports System
Public Class exercise106
    Public Shared Sub Swap(ByRef x As Integer, ByRef y As Integer)
        Dim swap As Integer
        swap = x
        x = y
        y = swap
    End Sub

    Public Shared Sub Main()
        Dim x As Integer = 5
        Dim y As Integer = 3
        Swap(x, y)
        Console.WriteLine("x: {0} , y: {1}", x, y)
    End Sub
End Class