Unidad 4. VBA. Más estructuras (IV)

Ejemplo 16

Escriba un procedimiento que al ejecutarse realice las operaciones básicas de una calculadora; es decir, sume (+), reste (-), multiplique (*), divida (/) y eleve a una potencia (^).

El esquema del trabajo es el siguiente:

Primero : Ingresar un número: Op

Segundo : Ingresar un código de operación: Code

Tercero : Mientras el valor de Code no sea "=", se pide otro número que ejecuta la operación indicada por Code, con el número previamente ingresado. Si se ha digitado "=", sale del bucle del While y emite el resultado.

El código es el siguiente:

Sub Calculator()

Dim Op As Double

' Lee el primero valor

Op = Val(InputBox("Ingrese un número"))

' Lee el código de operación

Code = InputBox("Codigo de operación")

' Va a iterar mientras el valor de Code no sea "=".

While Code <> "="

Select Case Code

Case "+"

Op = Op + Val(InputBox("Digite el número"))

Case "-"

Op = Op - Val(InputBox("Digite el número"))

Case "*"

Op = Op * Val(InputBox("Digite el número"))

Case "/"

Op = Op / Val(InputBox("Digite el número"))

Case "^"

Op = Op ^ Val(InputBox("Digite el número"))

Case Else

MsgBox ("Código inválido. Reinicie todo...")

End

End Select

Code = InputBox("Código de operación")

Wend

MsgBox ("Resultado = " & Op)

End Sub

Noviembre-2010

Pág. 4.4