Variables Static - III

Pero cambiemos el modo de declaración de la variable Importe, añadiéndole Static. En este caso, la primera vez que se ejecuta el procedimiento, se inicializa la variable con el valor 5, pero al terminar la ejecución, la variable no se destruye, sino que en la siguiente ejecución conserva el valor, que podemos ir incrementando en cada llamada. Ver Código fuente 170.

Public Sub Main()

Verificar("Primera") ' en esta llamada se muestra 7

Verificar("Segunda") ' en esta llamada se muestra 9

Verificar("Tercera") ' en esta llamada se muestra 11

Console.ReadLine()

End Sub

Public Sub Verificar(ByVal OrdenLlamada As String)

' declarar variable con el modificador Static,

' en la primera llamada toma el valor inicial de 5,

' las sucesivas llamadas no ejecutarán esta línea

Static Dim Importe As Integer = 5

Importe += 2

Console.WriteLine("{0} llamada al procedimiento, la variable contiene {1}", _

OrdenLlamada, Importe)

End Sub

Código fuente 170