Falta la instrucción de bucle VBS

Hay varios errores de ortografía en el código fuente, falta un final si al final, se depuró correctamente, en caso de error, reanudar siguiente

dim a, b, s, u

do while 1

u=inputbox("suma 1, resta 2, multiplica por 3, divide por 4", "¿qué?")

si u=0 entonces

WScript.exit

else

si u=1 entonces

a=inputbox("Ingrese un número", "Ecuación de suma")

b=inputbox("Ingrese un número", "Cálculo de la suma")

s=(abs(a) abs(b))

msgbox(s )

Finalizar si

si u=2 entonces

a=inputbox("Ingrese un número", "Fórmula de resta")

b=inputbox("Ingrese un número", "Cálculo de resta")

s=a-b

msgbox(s)

Fin si

si u=3 entonces

a=inputbox("ingrese un número","cálculo de multiplicación")

b=inputbox("ingrese un número" ," Fórmula de multiplicación")

s=a*b

msgbox(s)

Fin si

si u=4 entonces

a=inputbox("Ingrese un número", "Fórmula de división")

b=inputbox("Ingrese un número", "Fórmula de división")

s=a/b

msgbox(s)

Finalizar si

finalizar si

bucle