1 Alumnas: Mercedes Alonso y Camila Rodríguez Año: 1º “B” P.C.: 20

2 Ejercicio 1  Dado un valor correspondiente a una cantidad cualquiera de horas, informe cantidad de minutos y cantidad de segundos.

3 Pantalla Ingrese la cantidad de horas: EN MINUTOS : EN SEGUNDOS:

4 Private Sub CommandButton1_Click() Dim h As Integer Dim enmin As Integer Dim enseg As Integer h = Val(TextBox1) enmin = h * 60 enseg = h * 3600 Label1 = enmin Label2 = enseg End Sub PROGRAMACION:

5  Realice las cuatro operaciónes básicas entre dos números cualesquiera.

6 Pantalla  Número: EN RESTA : EN SUMA:EN DIVICION EN MULTIPLICACION:

7 Private Sub CommandButton1_Click() Dim n, m As Integer Dim commandbutton2 As Integer m = Val(TextBox1) n = Val(TextBox2) Label1 = m + n Label2 = m - n Label3 = m / n Label4 = m * n PROGRAMACION:

8  Dado un valor en pesos, expresarlo en dólares y en euros.

9 Pantalla  Dinero ( en pesos ): EN DOLARES: EN EUROS:

10 Private Sub CommandButton1_Click() Dim C As Integer Dim commandbutton1 As Integer C = Val(TextBox1) Label1 = C * 4.09 Label2 = C * 5.75 End Sub PROGRAMACION:

11  Informe la edad que cumplió o cumplirá este año una persona sabiendo su año de nacimiento.

12 Pantalla:  Año de nacimiento: Edad:

13 Private Sub CommandButton1_Click() Dim x As Integer Dim commandbutton1 As Integer x = Val(TextBox1) Label1 = 2011 - x End Sub PROGRAMACION:

14 Modificacion del programa anterior

15 Pantalla:  Año X:  Año de naciemiento: Edad

16  Private Sub CommandButton1_Click()  Dim x, y As Integer  Dim commandbutton1 As Integer  Val (TextBox1)  Val (TextBox2)  Label1 = TextBox1 - TextBox2  End Sub PROGRAMACION:

17  Dado un valor correspondiente al precio de un producto, calcule e informe el precio luego de aplicarle un 50% de descuento.

18 Pantalla:  Precio sin descuento: Precio con descuento:

19 Private Sub CommandButton1_Click() Dim x As Integer Dim commandbutton1 As Integer x = Val(TextBox1) Label1 = x * 0.5 End Sub PROGRAMACION:

20  Calcule la temperatura máxima promedio de un fin de semana cualquiera

21 Pantalla  Clima del Sabado:  Clima del Domingo: Clima promedio:

22 Private Sub CommandButton1_Click() Dim S, D As Integer Dim commandbutton1 As Integer Label1 = (Val(TextBox1) + Val(TextBox2)) / 2 End Sub PROGRAMACION:

23  Dado el precio de un producto cualquiera, informe el precio final de pago con tarjeta, sabiendo que es un 50 % más del precio de contado

24 Pantalla  Precio actual:  Precio con 50% más.

25 Private Sub CommandButton1_Click() Dim X As Integer Dim commandbutton1 As Integer Label1 = (Val(TextBox1) * 0.5) End Sub PROGRAMACION: