Scribd
Cargar
505 vistas

Ejercicios en Visual Basic

Este documento presenta cuatro ejercicios de programación en lenguaje Visual Basic que involucran el uso de estructuras condicionales como If, Select Case, y repetitivas como Do While. El primer ejercicio calcula el costo total de una compra según el producto y calidad seleccionados aplicando descuentos. El segundo ejercicio resuelve lo mismo usando Select Case. El tercero calcula la suma de los términos de una serie hasta el término 50. Y el cuarto calcula la suma de los números del 1 al 50.

Cargado por

hiriayco
Derechos de autor
© Attribution Non-Commercial (BY-NC)
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
505 vistas

Ejercicios en Visual Basic

Este documento presenta cuatro ejercicios de programación en lenguaje Visual Basic que involucran el uso de estructuras condicionales como If, Select Case, y repetitivas como Do While. El primer ejercicio calcula el costo total de una compra según el producto y calidad seleccionados aplicando descuentos. El segundo ejercicio resuelve lo mismo usando Select Case. El tercero calcula la suma de los términos de una serie hasta el término 50. Y el cuarto calcula la suma de los números del 1 al 50.

Cargado por

hiriayco
Derechos de autor
© Attribution Non-Commercial (BY-NC)
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
Está en la página 1/ 5

INSTITUTO SUPERIOR TECNOLOGICO IDAT PIURA

Ejercicio Nro. 1. (Sentencia If)- Una empresa se ha puesto en oferta tres


productos A, B, C cada uno de ellos en tres calidades diferentes C1, C2, C3. El costo de cada producto segn su calidad se da en la siguiente tabla:
C1 C2 C3 A 23.50 21.00 19.50 B 32.00 30.00 28.50 C 52.50 51.00 49.00

Adicionalmente la empresa ofrece un descuento del 10% para compras mayores que S/. 500.00. Disee un programa que ingrese el cdigo y la calidad del producto y determine e imprima el monto total de la compra, el monto del descuento y el monto a pagar.

Dim Dim Dim Dim Dim Dim

codigo As String calidad As String cantidad As Integer monto As Double descuento As Double total As Double

codigo = ComboBox1.Text calidad= ComboBox2.Text cantidad = Val(TextBox3.Text) If codigo = "A" And calidad = "C1" Then monto = cantidad * 23.5 ElseIf codigo = "A" And calidad = "C2" Then monto = cantidad * 21.0 ElseIf codigo = "A" And calidad = "C3" Then monto = cantidad * 19.5 ElseIf codigo = "B" And calidad = "C1" Then monto = cantidad * 32.0 ElseIf codigo = "B" And calidad = "C2" Then monto = cantidad * 30.0

Docente: Jaime Bolvar Armbulo Curso: Lenguaje de Programacin I

Pgina 1

INSTITUTO SUPERIOR TECNOLOGICO IDAT PIURA


ElseIf codigo = "B" And calidad monto = cantidad * 28.5 ElseIf codigo = "C" And calidad monto = cantidad * 52.5 ElseIf codigo = "C" And calidad monto = cantidad * 51.0 ElseIf codigo = "C" And calidad monto = cantidad * 49 End If = "C3" Then = "C1" Then = "C2" Then = "C3" Then

If monto > 500 Then descuento = monto * 0.1 Else descuento = 0 End If total = monto - descuento TextBox4.Text = "El monto de la venta es:" + Str(monto) + vbCrLf & "El descuento de la venta es:" + Str(descuento) + vbCrLf & "El total ha pagar:" + Str(total)

Ejercicio Nro. 2. (Select Case)- Una empresa se ha puesto en oferta tres


productos A, B, C cada uno de ellos en tres calidades diferentes C1, C2, C3. El costo de cada producto segn su calidad se da en la siguiente tabla:
C1 C2 C3 A 23.50 21.00 19.50 B 32.00 30.00 28.50 C 52.50 51.00 49.00

Adicionalmente la empresa ofrece un descuento del 10% para compras mayores que S/. 500.00. Disee un programa que ingrese el cdigo y la calidad del producto y determine e imprima el monto total de la compra, el monto del descuento y el monto a pagar.

Docente: Jaime Bolvar Armbulo Curso: Lenguaje de Programacin I

Pgina 2

INSTITUTO SUPERIOR TECNOLOGICO IDAT PIURA


Dim codigo As String Dim calidad As String Dim cantidad As Double Dim monto As Double Dim descuento As Double Dim total As Double codigo = ComboBox1.Text calidad = ComboBox2.Text cantidad = Val(TextBox3.Text) Select Case calidad Case "A" Case "C1" : monto = cantidad * 23.5 Case "C2" : monto = cantidad * 21.0 Case "C3" : monto = cantidad * 19.5 End Select Select Case calidad Case "B" Case "C1" : monto = cantidad * 32.0 Case "C2" : monto = cantidad * 30.0 Case "C3" : monto = cantidad * 28.5 End Select Select Case calidad Case "C" Case "C1" : monto = cantidad * 52.0 Case "C2" : monto = cantidad * 51.0 Case "C3" : monto = cantidad * 49.0 End Select Select Case monto Case Is > 500 descuento = monto * 0.1 End Select total = monto - descuento TextBox4.Text = "El monto de la venta es:" + Str(monto) + vbCrLf & "El descuento de la venta es:" + Str(descuento) + vbCrLf & "El total a pagar:" + Str(total) End Sub

Ejercicio Nro. 3. (Do While)-Escriba un programa en visual basic para hallar la suma de
50 trminos de la siguiente seria: S= (1/3)2 + (2/5)2 + (3/7)2 + (4/9)2 + (Hasta 50 Trminos)

Docente: Jaime Bolvar Armbulo Curso: Lenguaje de Programacin I

Pgina 3

INSTITUTO SUPERIOR TECNOLOGICO IDAT PIURA

Dim i As Integer = 1 Dim numerador As Integer = 1 Dim denominador As Integer = 3 Dim suma As Double = 0 TextBox1.Text = "" Do While i < 50 suma = suma + ((numerador / denominador) ^ 2) i = i + 1 numerador = numerador + 1 denominador = denominador + 2 TextBox1.Text = TextBox1.Text & "(" & numerador & "/" & denominador & ")^2+" If i Mod 4 = 0 Then TextBox1.Text = TextBox1.Text & vbCrLf End If Loop 'Estamos eliminando el ultimo signo + de la caja de texto TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 2) 'Agregamos la suma al total TextBox1.Text = TextBox1.Text & "=" & Format(suma, "##,###,##") End Sub

Docente: Jaime Bolvar Armbulo Curso: Lenguaje de Programacin I

Pgina 4

INSTITUTO SUPERIOR TECNOLOGICO IDAT PIURA

Ejercicio Nro. 4. (Do While)-Disee un programa para hallar la suma de los 50 trminos
de la siguiente serie:

Dim i As Integer = 1 Dim suma As Double = 0 Do While i < 50 i = i + 1 suma = suma + i TextBox1.Text = TextBox1.Text & Trim(Str(i)) & vbCrLf Loop TextBox1.Text = TextBox1.Text & "La suma es:" + Str(suma) End Sub

Docente: Jaime Bolvar Armbulo Curso: Lenguaje de Programacin I

Pgina 5

También podría gustarte