domingo, 22 de julio de 2012

Arreglos Inversos

Un arreglo es un objeto que sirve para almacenar un conjunto de valores del mismo tipo

 Podemos ver en el Form 1 


3 label
8 textbox
3 Button






Primer Button "Llenar Arreglo"


Como podemos Observar en la imagen 
Paso 1:
Declaramos
  Dim numero(4) As Integer
  Dim inverso(4) As Integer
  Dim i As Integer

Paso 2: 
Programamos

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For i = 0 To 3


            numero(i) = InputBox("Ingrese un Numero para almacenarlo")


        Next i
        TextBox2.Text = numero(0)

        TextBox5.Text = numero(1)
        TextBox4.Text = numero(2)
        TextBox3.Text = numero(3)


    End Sub

Paso 3:  





Button 2 :

Mostrar inverso

 Como vemos en la imagen le damos click para poder programar el button

Nos vamos a programar con  "FOR"

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        For i = 0 To 3

            inverso(i) = numero(i)
        Next i
        TextBox8.Text = inverso(3)
        TextBox6.Text = inverso(2)
        TextBox1.Text = inverso(1)
        TextBox7.Text = inverso(0)

    End Sub

El tercer button es la Opcion Salir


Le damos click y lo programamos con

Me.close ()



Espero que les ayude de algo el aporte de arreglo inverso....

No hay comentarios:

Publicar un comentario