24/11/2014 - Luis nos explicó como utilizar el Menu Editor en VB, para que reemplazáramos los Command Buttons. Comenzamos un programa que resolvía 3 ejercicios del examen del 3er periodo utilizando lo que nos enseñó.

Este es el Menu Editor. Sirve para crear pequeñas pestañas con opciones, así como en Word, Powerpoint, etc. Escribes lo que dirá la pestaña, su nombre, y si quieres un atajo para el teclado.

En el programa de la solución del examen teníamos que poner una forma de presentación con nuestra foto y nombre.

Esta es la forma de presentación del examen. Se pueden ver las pestañas que llevan a cada uno de los ejercicios que teníamos que resolver y sus atajos.

Ejercicio 1. Los números correctos eran: 48, 49 y 51. Teníamos que agregar el diagrama de flujo que utilizamos para resolver el problema.

El procedimiento era así en VB:

Private Sub Command1_Click()

For x = 1 To 1000

    multi = x * (x + 1) * (x + 2)

    suma = 800 * (x + (x + 1) + (x + 2))

    If multi = suma Then

           Label4.Caption = Str(x) + " , " + Str(x + 1) + " y " + Str(x + 2)

    End If

Next x

End Sub

Ejercicio 2. El resultado era: 18, 20 y 22.

En VB:

Private Sub Command1_Click()

For x = 2 To 1000 Step 2

    div = (x * (x + 2) * (x + 4)) / 132

    suma = x + (x + 2) + (x + 4)

    If div = suma Then

          Label4.Caption = Str(x) + " , " + Str(x + 2) + " y " + Str(x + 4)

    End If

Next x

End Sub

Ejercicio 3. El resultado era: 9685801, 9685803 y 9685805.

En VB:

Private Sub Command4_Click()

For x = 1 To 10000000

    multi = x * (x + 2) * (x + 4)

    suma = x + (x + 2) + (x + 4)

    raiz = Sqr(multi + suma + 99)

    If raiz = Int(raiz) Then

          Label4.Caption = Str(x) + " , " + Str(x + 2) + " y " + Str(x + 4)

    End If

Next x

End Sub