Imprimir Página - [VBS]Mi primera calculadora

Holas, bueno hace poco que empece a leer sobre VBScript y aca tengo mi primera aplicacion ;D 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:

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

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: darkgx en 4 Diciembre 2009, 21:15 pm