Pages

lunes, 28 de enero de 2013

Intercambiar los valores de dos variables numéricas Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que intercambie los valores de dos variables numéricas.

Solución
  • Entrada:  15,  98
  • Salida:   98, 15
Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim tem, A, B As Integer
        A = TextBox1.Text
        B = TextBox2.Text
        tem = A
        A = B
        B = tem
        TextBox3.Text = "Ahora el valor de A es:  " + Trim(A) +
            "    y el valor de B es:   " + Trim(B)
    End Sub
End Class

2 comentarios: