[VBS]Mi primera calculadora

[darkgx]

Holas, bueno hace poco que empece a leer sobre VBScript y aca tengo mi primera aplicacion  espero comentarios porfavor.

Una pregunta... como puedo hacer para que cuando aprete en cancelar que salga de la aplicacion? porque aca yo hice que para salir tienen que escribir la palabra "salir"...

Bueno... explico un poco. Las operaciones que pueden elegir son: suma, resta, division y multiplicacion. Luego les va a pedir que ingresen un numero y luego otro y por ultimo les saldra un msgbox con el resultado. Espero comentarios/criticas... etc

Código [Seleccionar] Expandir

Dim num, num2, num3, result

Do
num = inputbox("que operacion quiere realizar?. Escriba salir si quiere terminar.","Calculadora VBS - By Darkgx")
IF (num="salir") then
exit do
end if

SELECT CASE num
CASE "suma"
num2 = inputbox("numero 1","suma")
num3 = inputbox("numero 2","suma")
result = num2 + num3
msgbox  result
CASE "division"
num2 = inputbox("numero 1","suma")
num3 = inputbox("numero 2","suma")
result = num2/num3
msgbox result
CASE "resta"
num2 = inputbox("numero 1","suma")
num3 = inputbox("numero 2","suma")
result = num2-num3
msgbox result
CASE "multiplicacion"
num2 = inputbox("numero 1","suma")
num3 = inputbox("numero 2","suma")
result = num2*num3
msgbox result
End Select

loop

[xassiz_]

Código [Seleccionar] Expandir


If var = "salir" then
Mensaje = Msgbox("¿Desea terminar la aplicacion?",36,"Terminar")
If Mensaje = 6 then
wscript.quit
Else
wscript.quit
End if
End if