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 IntegerDim 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