GUIA PROGRAMACIÓN
° ESTRUCTURA LINEAL
1. Escribir un programa que calcule la hipotenusa de un triángulo rectángulo cuando son
conocidos sus otros dos lados
Public Class TrianguloRectangulo
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim a As Double
Dim b As Double
Dim hipotenusa As Double
' 1. Capturar datos de los TextBox
' Usamos Double porque los lados pueden tener decimales
a = Val([Link])
b = Val([Link])
' 2. Proceso Matemático
' Opción A (Usando el operador de potencia ^)
' Opción B (Usando la librería Math)
hipotenusa = [Link]((a ^ 2) + (b ^ 2))
' 3. Mostrar el resultado
[Link] = "La hipotenusa es: " & hipotenusa
End Sub
End Class
2. Escribir un programa que convierta kilogramos a libras, los kilogramos serán
proporcionados por el usuario (un kilogramo es igual a 2.2 libras).
Public Class Form2
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim kilo As Double
Dim libra As Double = 2.2046226218
kilo = Val([Link])
libra = libra * kilo
[Link] = "Tu conversion de kilos a libras es: " & libra & "libras"
End Sub
Private Sub Button2_Click(ByVal sender As [Link],
ByVal e As [Link]) Handles [Link]
[Link]()
End Sub
End Class
3. Una tienda ofrece un descuento del 15% sobre el total de la compra y un cliente desea
saber cuánto deberá pagar finalmente por su compra.
Public Class Form3
Private Sub Button1_Click(ByVal sender As [Link], ByVal
e As [Link]) Handles [Link]
Dim precio As Double
Dim descuento As Double
Dim total As Double
precio = Val([Link])
descuento = precio * 15 / 100
[Link] = "Tu descuento aplicado será de: " & descuento
& " pesos "
total = precio - descuento
[Link] = "El total a pagar será: " & total & " pesos "
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link]()
End Sub
End Class
4. Un alumno desea saber cuál será su calificación final en la materia de Algoritmos. Dicha
calificación se compone de los siguientes porcentajes:
55% del promedio de sus tres calificaciones parciales.
30% de la calificación del examen final.
15% de la calificación de un trabajo final.
Public Class Form4
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim p1, p2, p3 As Double
Dim exfin As Double
Dim trabajo As Double
Dim total, promparc As Double
p1 = Val([Link])
p2 = Val([Link])
p3 = Val([Link])
exfin = Val([Link])
trabajo = Val([Link])
promparc = (p1 + p2 + p3) / 3
total = (exfin * 0.3) + (trabajo * 0.15) + (promparc * 0.55)
[Link] = " Tu promedio final es: " & total
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link]()
End Sub
End Class
5. Leer un número y escribir el valor absoluto del mismo.
Public Class Form5
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim num As Double
Dim absoluto As Double
num = Val([Link])
If num < 0 Then
absoluto = num * -1
Else
absoluto = num
End If
[Link] = "El valor absoluto es: " & absoluto
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link]()
End Sub
End Class
6. Escriba un programa que pida al usuario un entero de tres dígitos, y entregue el número
con los dígitos en orden inverso
Public Class Form6
Private Sub Button1_Click(ByVal sender As [Link],
ByVal e As [Link]) Handles [Link]
Dim num As Integer
Dim res As Integer
num = Val([Link])
res = StrReverse(num)
[Link] = "Conversión: " & res
End Sub
End Class
° Estructura Condicional (Simple, Doble, Anidada Y Múltiple)
1. Un obrero necesita calcular su salario semanal, el cual se obtiene de la siguiente manera:
Si trabaja 40 horas o menos se le paga un salario de $16 por hora, si trabaja más de 40
horas se le paga un salario de $16 por cada una de las primeras 40 horas y un salario de
$20 por cada hora extra.
Public Class Form1
Private Sub Button1_Click(ByVal sender As [Link], ByVal
e As [Link]) Handles [Link]
Dim horas As Integer
Dim extras As Double
Dim total As Integer
horas = Val([Link])
If horas <= 40 Then
total = horas * 16
[Link] = "Tu salario semanal será de: " & total
Else
extras = horas - 40
total = 640 + (extras * 20)
[Link] = "Salario base: $640" & vbNewLine & "Horas extra: " & extras &
vbNewLine & "Total: $" & total
End If
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link]()
End Sub
End Class
2. En una tienda de descuento se efectúa una promoción en la cual se hace un descuento
sobre el valor de la compra total según el color de la bolita que el cliente saque al pagar en
caja.
o Si la bolita es de color blanco no se le hará descuento alguno
o sí es verde se le hará un 10% de descuento
o sí es amarilla un 25%, si es azul un 50%
o sí es roja un 100%.
Determinar la cantidad final que el cliente deberá pagar por su
compra se sabe que solo hay bolitas de los colores mencionados.
Public Class Form2
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim color As String
color = [Link]
If color = "blanco" Then
MsgBox("No tienes descuento aplicable")
ElseIf color = "verde" Then
MsgBox("Tu descuento aplicable será del 10%")
elseif color = "amarillo" then
MsgBox("Tu descuento aplicable sera de 25%")
ElseIf color = "azul" Then
MsgBox("Tu descuento aplicable será del 50%")
ElseIf color = "rojo" Then
MsgBox("!Felicidades¡ Tu descuento aplicable sera del 100%")
End If
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link]()
End Sub
End Class
Ciclo For y while
1. Un autobús recorre tres ciudades desde su salida hasta llegar a su destino. El autobús sale con 40
personas, en cada ciudad pueden subir o bajar más personas. solicite al usuario cuantas personas
subieron y cuantas bajaron en cada ciudad y dé como resultado cuantas quedaron al final, el
promedio de las que subieron y el promedio de las que bajaron.