Intercambio de valores entre variables
Publicado por axmug (1 intervención) el 04/04/2005 08:06:08
Hola,
Quiero hacer un intercambio del valor de dos variables numéricas sin utilizar una variable auxiliar. Para ello creo dos campos de tipo texto para introducir los números y un botón que cuando lo pulsas quiero que los valores se intercambien, es decir, el valor del primer campo ponerlo en el segundo y el del segundo ponerlo en el primero.
Con el código que tengo introduzco los números y pulso el botón mutar pero no me hace nada y tampoco me da ningún error.
El código que tengo es el siguiente:
<html>
<head>
<body>
<p>Primer numero <INPUT NAME=n1></p>
<p>Segundo numero <INPUT NAME=n2></p>
<INPUT TYPE=BUTTON NAME=boton VALUE="Mutar">
</body>
<script=VBScript>
<%
Sub mutar()
Dim a
Dim b
a=Cint(n1.value)
b=Cint(n2.value)
Response.write(a)
Response.write(a)
a=a+b
b=a-b
a=a-b
n1.value=b
n2.value=a
Response.write("Entrar en mutar")
Response.write (n1)
Response.write (n2)
End Sub
Sub boton_On_click()
Response.write("Entrar en mutar")
call mutar
End Sub
%>
</script>
</html>
Quisiera saber como solucionar esto.
Muchas gracias.
Quiero hacer un intercambio del valor de dos variables numéricas sin utilizar una variable auxiliar. Para ello creo dos campos de tipo texto para introducir los números y un botón que cuando lo pulsas quiero que los valores se intercambien, es decir, el valor del primer campo ponerlo en el segundo y el del segundo ponerlo en el primero.
Con el código que tengo introduzco los números y pulso el botón mutar pero no me hace nada y tampoco me da ningún error.
El código que tengo es el siguiente:
<html>
<head>
<body>
<p>Primer numero <INPUT NAME=n1></p>
<p>Segundo numero <INPUT NAME=n2></p>
<INPUT TYPE=BUTTON NAME=boton VALUE="Mutar">
</body>
<script=VBScript>
<%
Sub mutar()
Dim a
Dim b
a=Cint(n1.value)
b=Cint(n2.value)
Response.write(a)
Response.write(a)
a=a+b
b=a-b
a=a-b
n1.value=b
n2.value=a
Response.write("Entrar en mutar")
Response.write (n1)
Response.write (n2)
End Sub
Sub boton_On_click()
Response.write("Entrar en mutar")
call mutar
End Sub
%>
</script>
</html>
Quisiera saber como solucionar esto.
Muchas gracias.
Valora esta pregunta
0