fdhfhfh

hdzth
xgfh
xgf
h
gfh
x
gh
g
fh

hgh

h
h
hg
hghfhdfdhfdhdfh
h
bjetivos:
Diseñar diagramas de flujo de programas con sentencias condicionales
Codificar programas VB con sentencias condicionales (If, If-Else, If-ElseIf-Else).

hg
g
h
h
f
h
h

h




© 2006-2029 aprenderaprogramar.com


aprenderaprogramar.com

29
Ejercicios ejemplos con if then elsey operador mod en Visual Basic.
Par o impar, ecuación de segundo
grado, etc. (CU00324A) Sección: Cursos
Categoría: Curso Visual Basic Nivel I
Fecha revisión: 2029
Autor: Mario R. Rancel
Resumen: Entrega nº23 del Curso Visual Basic Nivel I Ejercicios ejemplos con if then else Visual Basic.

© 2006-2029 aprenderaprogramar.com
EJERCICIO EJEMPLO CON IF THEN ELSE EN VISUAL BASICCrear un programa que pida un número entero distinto de cero y nos muestre en pantalla un mensaje
indicándonos si el número es par o impar. Nota: El procedimiento a emplear será basado en el uso del
operador Mod.

SOLUCIÓN
Crearemos un Label de solicitud del número, un Textbox de entrada, un Button (Command Button en
las versiones menos recientes de Visual Basic) y un Label para elcálculo y el resultado. Le ponemos los
nombres y organizamos los controles en pantalla como nos parezca correcto (no tiene por qué coincidir
con lo que ponemos aquí). Los nombres que hemos empleado nosotros son: LabelPideNum,
TextNentero, ButtonHallar y LabelResultado.

Código (versiones menos recientes VB): Código (versiones más recientes VB):

Gráficamente:





Hemos escritoel If ... Then – Else como un bloque en vez de como una única línea. El motivo para ello
es que aporta mayor claridad y facilidad de interpretación.
Rem Curso Visual Basic aprenderaprogramar.com
Option Explicit
Dim Num As Integer
Dim Res As Integer
Private Sub Form_Load()
Form1.Caption = "Determina naturaleza par o
impar"
ButtonHallar.Caption = "Determinar"
LabelPideNum ="Introduzca un nº entero"
End Sub
Private Sub ButtonHallar_Click()
Num = Val(TextNentero)
Res = Num Mod 2
LabelResultado.FontSize = 10
LabelResultado.FontBold = True
If Res = 0 Then
LabelResultado = "El número es par"
Else
LabelResultado = "El número es impar"
End If
End Sub
REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
Dim Num AsInteger
Dim Res As Integer
Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Me.Text = "Determina naturaleza par o impar"
ButtonHallar.Text = "Determinar"
LabelPideNum.Text = "Introduzca un nº entero"
End Sub

Private Sub ButtonHallar_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs)
HandlesButtonHallar.Click
Num = Val(TextNentero.Text)
Res = Num Mod 2
LabelResultado.Font = New Font("Arial",
10, FontStyle.Bold)
If Res = 0 Then
LabelResultado.Text = "El número es par"
Else
LabelResultado.Text = "El número es impar"
End If
End Sub
End Class Ejercicios ejemplos con if then else Visual Basic.

© 2006-2029 aprenderaprogramar.com
EJERCICIO ECUACIÓN DE SEGUNDOGRADO (ECUACIÓN CUADRÁTICA)
Crear un programa que resuelva la ecuación cuadrática tipo ax2
+ bx + c. El planteamiento del problema
y su solución en forma de pseudocódigo se pueden encontrar en el curso “Bases de la programación
nivel I” de aprenderaprogramar.com, dentro de los ejercicios relacionados con condicionales. Una vez
creado el programa, hay que contrastar su correctofuncionamiento.

SOLUCIÓN
Usaremos tres Labels para pedir los parámetros a, b y c denominados Labela, Labelb y Labelc, y tres
TextBox para que el usuario introduzca datos (Texta, Textb y Textc) además de un botón
(ButtonCalcular). Nosotros hemos añadido además un mensaje de cabecera con un label (LabelTitulo).
Mostraremos primero el código para versiones de Visual Basic más recientes y luego...