Este documento contiene 11 problemas de programación en Visual Basic resolviendo diferentes tareas matemáticas y lógicas. Los problemas incluyen programas para calcular descuentos en compras, aprobar préstamos basados en criterios financieros, clasificar letras como vocales o consonantes, determinar si un año es bisiesto, calcular los días de un mes, verificar si un número es divisor de otro, verificar si tres puntos forman un triángulo equilátero, identificar números perfectos, verificar si un número es capicúa, invertir los dígitos de un
0 calificaciones0% encontró este documento útil (0 votos)
165 vistas12 páginas
Este documento contiene 11 problemas de programación en Visual Basic resolviendo diferentes tareas matemáticas y lógicas. Los problemas incluyen programas para calcular descuentos en compras, aprobar préstamos basados en criterios financieros, clasificar letras como vocales o consonantes, determinar si un año es bisiesto, calcular los días de un mes, verificar si un número es divisor de otro, verificar si tres puntos forman un triángulo equilátero, identificar números perfectos, verificar si un número es capicúa, invertir los dígitos de un
Este documento contiene 11 problemas de programación en Visual Basic resolviendo diferentes tareas matemáticas y lógicas. Los problemas incluyen programas para calcular descuentos en compras, aprobar préstamos basados en criterios financieros, clasificar letras como vocales o consonantes, determinar si un año es bisiesto, calcular los días de un mes, verificar si un número es divisor de otro, verificar si tres puntos forman un triángulo equilátero, identificar números perfectos, verificar si un número es capicúa, invertir los dígitos de un
Este documento contiene 11 problemas de programación en Visual Basic resolviendo diferentes tareas matemáticas y lógicas. Los problemas incluyen programas para calcular descuentos en compras, aprobar préstamos basados en criterios financieros, clasificar letras como vocales o consonantes, determinar si un año es bisiesto, calcular los días de un mes, verificar si un número es divisor de otro, verificar si tres puntos forman un triángulo equilátero, identificar números perfectos, verificar si un número es capicúa, invertir los dígitos de un
Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
Descargar como docx, pdf o txt
Está en la página 1/ 12
Laboratorio Programacin
1. Una tienda que vende pantalones Dickies al menudeo y al mayoreo tiene las siguientes tarifas, si se compran menos de 5 pantalones estos se cobran a su precio normal, en caso de que se compren 5 o ms pero menos de 12, se les descuenta el 15% en cada pantaln, si se compran ms de 12 se les descuenta 30% en cada pantaln. Escriba un programa que pida como dato de entrada el nmero de pantalones que se desean comprar y con ello imprima el total a pagar por la compra hecha.
Dim suma, dat As Integer
Private Sub Command1_Click()
suma = Text1 * 80
If Text1 <= 5 Then
Text2 = Text1 * 80
ElseIf Text1 > 5 And Text1 < 12 Then
Text2 = (Text1 * 80) - ((Text1 * 80) * 0.15)
Else
Text2 = (suma) - (suma * 0.3)
End If
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
End Sub 2. Escriba un programa para determinar si un solicitante puede lograr un prstamo. Deber pedir los siguientes datos para cada solicitante: Nombre, historia crediticia (b buena o m mala), cantidad pedida, salario anual, y valor de otras propiedades. El banco solo considerar a los solicitantes con un estado de crdito bueno. De aquellos, solo aceptara los que tengan ms de 6 puntos. Los puntos se obtienen como sigue:
5 puntos si el salario es 50% del prstamo o ms.
3 puntos si el salario es por lo menos 25% pero menos de 50% del prstamo. 1 punto si el salario es por lo menos 10% pero menos de 25% del prstamo. 5 puntos si se tiene otra propiedad del doble del prstamo o ms. 3 puntos si se tiene otra propiedad igual al prstamo, pero menor del doble
Dim punto, descp As Integer
Dim salario, mitad, dies, cuarto, prestamo, propiedad As Double Private Sub SoS_Click() prestamo = Val(Text2) salario = Val(Text3) descp = Val(Text6) propiedad = Val(Text9) mitad = prestamo - (prestamo * 0.5) If (Option1 = False And Option2 = False) Then Label9 = "Ingrese Datos" End If If (Option1 = True) Then If (salario = 0 Or prestamo = 0 And propiedad = 0 Or Text1 = "") Then Label9 = "Ingrese Datos" Else If (salario >= mitad) Then punto = 5 Text12 = punto End If cuarto = prestamo - (prestamo * 0.75) If (salario >= cuarto And salario < mitad) Then punto = 3 Text12 = punto End If dies = prestamo - (prestamo * 0.9) If (salario >= dies And salario < cuarto) Then punto = 1 Text12 = punto End If If (salario < dies) Then punto = 0 Text12 = punto End If If (propiedad >= (prestamo * 2)) Then punto = punto + 5 Text12 = punto End If If (propiedad >= prestamo And propiedad < (prestamo * 2)) Then punto = punto + 3 Text12 = punto End If If (punto > 6) Then Label9 = "Su solicitud ha sido Aprobada " + Text1 + " :)" Else Label9 = "Su solicitud No fue Aprobado " + Text1 + " :(" End If End If ElseIf (Option2 = True) Then Label9 = "Mal Historial" End If End Sub 3. Escriba un programa que pida una letra minscula, el programa deber imprimir si la letra es una vocal (a,e,i,o,u), semivocal (y) o una consonante.
Dim letra As String
Private Sub Command1_Click() letra = Val(Text1) Text2 = Text1 If (Text1 = "a" Or Text1 = "e" Or Text1 = "i" Or Text1 = "o" Or Text1 = "u") Then Text2 = "Vocal" ElseIf (Text1 = "b" Or Text1 = "c" Or Text1 = "d" Or Text1 = "f" Or Text1 = "g" Or Text1 = "h" Or Text1 = "j" Or Text1 = "k" Or Text1 = "l" Or Text1 = "m" Or Text1 = "n" Or Text1 = "p" Or Text1 = "q" Or Text1 = "r" Or Text1 = "s" Or Text1 = "t" Or Text1 = "u" Or Text1 = "v" Or Text1 = "w" Or Text1 = "x" Or Text1 = "z") Then Text2 = "Consonante" ElseIf (Text1 = "y") Then Text2 = "Semivocal" Else Text2 = "No es una Letra" End If End Sub 4. Para determinar si un ao es bisiesto o no debe de cumplir la siguiente regla: Ser divisible entre 4 y no divisible entre 100 o bien divisible entre 400. Escriba un programa que pida como entrada el ao e imprima si el ao es bisiesto o no.
Private Sub Command1_Click()
ano = Val(Text1) If (ano Mod 4 = 0 And ano Mod 100 <> 0) Or (ano Mod 400 = 0) Then Text2 = "Bisiesto" Else Text2 = "No es bisiesto" End If End Sub 5. Escriba un programa que pida el nmero de mes (del 1 al 12) he imprima el nmero de das que tiene el mes, donde: El mes 2 tiene 28 das, los meses 4,6,9 y 11 tienen 30 das, los meses 1,3,5,7,8,10 y 12 tienen 31 das. Si da un mes diferente a los anteriores deber imprimir el mensaje MES ERRONEO
Dim num, mes, dias As Integer
Private Sub Command1_Click() num = Val(Text1) If (num = 2) Then Text3 = 28 ElseIf (num = 4 Or num = 6 Or num = 9 Or num = 11) Then Text3 = 30 ElseIf (num = 1 Or num = 3 Or num = 5 Or num = 7 Or num = 8 Or num = 10 Or num = 12) Then Text3 = 31 Else Text3 = "MES ERRONEO" End If Select Case (num) Case Is = 1 Text2 = "Enero" Case Is = 2 Text2 = "Febrero" Case Is = 3 Text2 = "Marzo" Case Is = 4 Text2 = "Abril" Case Is = 5 Text2 = "Mayo" Case Is = 6 Text2 = "Junio" Case Is = 7 Text2 = "Julio" Case Is = 8 Text2 = "Agosto" Case Is = 9 Text2 = "Septiembre" Case Is = 10 Text2 = "Octubre" Case Is = 11 Text2 = "Noviembre" Case Is = 12 Text2 = "Diciembre" Case Else Text2 = "MES ERRONEO" End Select End Sub 6. Determinar si dados dos nmeros el segundo nmero es divisor del primero.
Dim num1, num2 As Integer
Private Sub Command1_Click() num1 = Val(Text1) num2 = Val(Text2) If (num1 Mod num2 = 0) Then Label3 = "Es divisor" Else Label3 = "No es divisor" End If End Sub 7. Dados 3 pares ordenados (x,y), determinar si los puntos dentro del plano cartesiano forman un tringulo equiltero (Utilizar formula de distancia entre dos puntos). 8. Un numero entero es un numero Perfecto si sus factores incluyendo al 1 (pero excluyendo en el numero mismo), suman igual que el nmero, ejemplo el 6 es un numero perfecto porque 6=1+2+3, escriba un programa que regrese los nmeros perfectos en un rango entre 1-200 9. Realice un programa en el cual indique si un numero ingresado desde el teclado es capica. (Un valor capica es aquel que se lee igual de ambas formas, de derecha a izquierda y de izquierda a derecha). 10. Escriba un programa que tome un valor de 5 dgitos y regrese el nmero con los datos invertidos. 11. Escriba un programa que dada una cantidad en letras la devuelva con nmeros, por ejemplo, al ingresar MIL, este debe de retornar 1000.
