Decisión simple en una línea

En el caso de que sólo haya que ejecutar una instrucción sencilla cuando se cumple la expresión de la estructura, podemos omitir la palabra clave End If, escribiendo la sentencia a ejecutar en la misma línea de la declaración de la estructura If, justo a continuación de la palabra Then. La sintaxis en este caso, se simplifica, como muestra el Código fuente 118.

If Expresión Then Instrucción

Código fuente 118

Veamos un ejemplo en el Código fuente 119.

Sub Main()

Dim Valor As Integer

Dim Resultado As Integer

Console.WriteLine("Introducir un número")

Valor = Console.ReadLine()

If Valor = 5 Then Resultado = Valor + 10

Console.WriteLine("La variable resultado contiene {0}", Resultado)

Console.ReadLine()

End Sub

Código fuente 119

Como habrá comprobado el lector, la sentencia que hay a continuación de Then sólo se ejecutará cuando la variable Valor contenga 5.