Visual Basic Sentencia If

IF THEN (SI ENTONCES) E IF THEN ELSE (SI
ENTONCES SINO)
La sintaxis a emplear con Visual Basic es muy similar a la que se estudia
en los cursos de algoritmia y pseudocdigo, con la sustitucin del Si por
If, del Entonces por Then, del Si No por Else y del Finsi por End If. La
nica salvedad a tener en cuenta es que Visual Basic permite adems de
la escritura en bloques la escritura en una sola lnea.
Sintaxis en bloque:
If
[condicin]
Then
Instruccin
1
Instruccin
2
Instruccin
n
Else
Instruccin
A
Instruccin
B
Instruccin
Z
End If
Sintaxis en una sola lnea:
If [condicin] Then Instruccin 1

Else Instruccin A
Tambin es posible encadenar varias acciones derivadas de un Then o

de un Else en una sola lnea. Sin embargo, recomendamos usar la opcin
de sintaxis en una sola lnea exclusivamente para desarrollos sencillos
como puede ser una instruccin en caso de que se cumpla la condicin y
otra en caso de que no se cumpla. Si intervienen varias instrucciones,
siempre resultar ms legible usar el formato de bloque.
La instruccin If ... Then es anidable dentro de s misma, siendo siempre
preferible el formato de bloque cuando se vayan a generar
anidamientos.
Sintaxis de los mensajes

Ejemplo:
If A > 7 And B < 5 Then

MsgBox ("A es mayor que 7 y
B menor que 5")
End If
Tambin vlido es:

If A > 7 And B < 5 Then MsgBox ("A es
mayor que 7 y B menor que 5")
Si introducimos una clusula Else el modelo es:

If A > 7 And B < 5 Then
MsgBox ("A es mayor que 7 y B
menor que 5")
Else
MsgBox ("A no es mayor que 7 B
no es menor que 5")
End If
Tambin vlido:
If A > 7 And B < 5 Then MsgBox ("A es mayor
que 7 y B menor que 5") _
Else MsgBox ("A no es mayor que 7 B no es
menor que 5")
Una cuestin a tener en cuenta es que cuando la condicin indicada por

un If en bloque no se cumple, se produce el salto a la siguiente
instruccin inmediatamente posterior a la palabra End If. En cambio,
cuando la condicin indicada por un If en una lnea no se cumple, se
produce el salto a la siguiente lnea ignorando todas las instrucciones
que pudieran encontrarse en la misma lnea del If. Vemoslo con un
ejemplo. Ejecuta estos dos pequeos programas:
Programa 1 (versionesVB menos recientes)
Rem Curso Visual Basic aprenderaprogramar.com

Option Explicit
Dim a%
Private Sub Form_Load()

a=3
If a = 5 Then
MsgBox("Se cumple que a vale 5")
End If
a = 25
MsgBox("El valor actual de a es " & a)
End Sub
Programa 1
(versiones VB ms
recientes)
REM Curso Visual
Basic
aprenderaprogramar.c
om
Option Explicit On
Public Class Form1
Dim a%
Private Sub
Form1_Load(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs)
Handles MyBase.Load
a=3
If a = 5 Then
MsgBox("Se
cumple que a vale 5")
End If
a = 25
MsgBox("El valor
actual de a es " & a)
End Sub
End Class
Programa 2 (versionesVB menos

recientes)
Rem Curso Visual Basic

aprenderaprogramar.com
Option Explicit
Dim a%
Private Sub Form_Load()

a=3
If a = 5 Then MsgBox ("Se cumple que a
vale 5"): a = 25
MsgBox ("El valor actual de a es " & a)
End Sub
Programa 2 (versiones VB
ms recientes)
REM Curso Visual Basic
aprenderaprogramar.com
Option Explicit On
Public Class Form1
Dim a%
Private Sub
Form1_Load(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
MyBase.Load
a=3
If a = 5 Then MsgBox("Se
cumple que a vale 5") : a = 25
MsgBox("El valor actual de
a es " & a)
End Sub
End Class
En el programa 1 el resultado es que se muestra en pantalla "El valor

actual de a es 25", mientras que en el programa 2 se muestra "El valor
actual de a es 3". La razn para que en la versin 2 no se ejecute la
orden a = 25 es que al no cumplirse la condicin del If se produce un
salto a la siguiente lnea, ignorndose todas las instrucciones que se
encuentren en la misma lnea del If. En general consideramos
recomendable habituarse a usar la sintaxis de bloque siempre pues

resulta ms fcil de interpretar y evita posibles confusiones como sta,
donde muchas personas podran pensar que si no se cumple el if se
ejecutar la instruccin que aparece en la misma lnea a continuacin.
Pasar un formulario a otro

Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
Pones otro boton en el formulario2 y dentro este codigo:

Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
Al apretar el boton del formulario1 aparecera el formulario2 y al apretrar el

boton del formulario2 te aparecera sin problemas el formulario1.

Visual Basic Sentencia If

Cargado por

Copyright:

Formatos disponibles

Visual Basic Sentencia If

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Visual Basic Sentencia If

Cargado por

Copyright:

Formatos disponibles

IF THEN (SI ENTONCES) E IF THEN ELSE (SI

Sintaxis en una sola lnea:

If [condicin] Then Instruccin 1

Tambin es posible encadenar varias acciones derivadas de un Then o

Sintaxis de los mensajes

If A > 7 And B < 5 Then

Tambin vlido es:

Si introducimos una clusula Else el modelo es:

Una cuestin a tener en cuenta es que cuando la condicin indicada por

Programa 1 (versionesVB menos recientes)

Rem Curso Visual Basic aprenderaprogramar.com

Private Sub Form_Load()

Programa 2 (versionesVB menos

Rem Curso Visual Basic

Private Sub Form_Load()

En el programa 1 el resultado es que se muestra en pantalla "El valor

recomendable habituarse a usar la sintaxis de bloque siempre pues

Pasar un formulario a otro

Pones otro boton en el formulario2 y dentro este codigo:

Al apretar el boton del formulario1 aparecera el formulario2 y al apretrar el

También podría gustarte