Clase 09 LP

Ejercicios en VB 2010

Ejercicio 01
• Elabora un programa que dado un número
entero, determine e imprima si el mismo es
nulo, si es positivo o si es negativo.

Diagrama deFlujo

Formulario

Código
Public Class Form1
Private Sub EVALUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
EVALUAR.Click
If NUMERO.Text = ""Then
MsgBox("DEBES INGRESAR UN NUMERO")
Else
If IsNumeric(NUMERO.Text) = True Then
If Val(NUMERO.Text) = 0 Then
MsgBox("ESTE NUMERO ES NULO")
Else
If Val(NUMERO.Text) < 0Then
MsgBox("ESTE NUMERO ES NEGATIVO")
Else
MsgBox("ESTE NUMERO ES POSITIVO")
End If
End If
Else
MsgBox("DEBE INGRESAR SOLO NUMEROS")
NUMERO.Text = ""
End If
End If
End Sub
EndClass

Ejercicio02
• Elabora un programa que dado un número
entero, determine e imprima si el mismo es
nulo, si es par o si es impar.

Diagrama de Flujo

Formulario

CódigoPublic Class Form2
Dim VALOR As Integer
Private Sub EVALUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EVALUAR.Click
If NUMERO.Text = "" ThenMsgBox("DEBES INGRESAR UN NUMERO")
Else
If IsNumeric(NUMERO.Text) = True Then
If Val(NUMERO.Text) = 0 Then
MsgBox("ESTE NUMERO ES NULO")
Else
VALOR = ((-1) ^(Val(NUMERO.Text)))
If VALOR < 0 Then
MsgBox("ESTE NUMERO ES IMPAR")
Else
MsgBox("ESTE NUMERO ES PAR")
End If
End If
Else
MsgBox("DEBES INGRESAR SOLO NUMEROS")
NUMERO.Text = ""
End If
End If
EndSub
End Class

EJERCICIOS PROPUESTOS

Ejercicio 03
• Construya un programa que dado como datos
de entrada tres números enteros, determine si
los mismos están en ordencreciente.

Ejercicio 04
• Construye un programa que permita calcular
el área de una figura geometría, elegida por el
usuario.
– Cuadrado
– Rectángulo
– Círculo
– Triángulo