Ejemplo:
En la sección Public Class
Dim A(0 To 1, 0 To 9)
En la sección Form1_load
el resultado será como sigue:
A(0, 0) = "ACERO"
A(1, 0) = "STEEL"
A(0, 1) = "AGUA"
A(1, 1) = "WATER"
A(0, 2) = "ABACO"
A(1, 2) = "ABACUS"
A(0, 3) = "ARRANQUE"
A(1, 3) = "BOOT"
A(0, 4) = "AMOR"
A(1, 4) = "LOVE"
A(0, 5) = "ABEJA"
A(1, 5) = "BEE"
A(0, 6) = "ACCESO"
A(1, 6) = "ACCESS"
A(0, 7) = "AIRE"
A(1, 7) = "AIR"
A(0, 8) = "AZÚCAR"
A(1, 8) = "SUGAR"
A(0, 9) = "ABRIR"
A(1, 9) = "OPEN"
Para lograr el recorrido del arreglo establecemos un bucle, el mismo que colocaremos en el objeto Btn_Cargar en el evento click
For j = 0 To 9ListBox1.Items.Add(A(0, j))
ListBox2.Items.Add(A(1, j))
Next
TAREA
NOTA: Recuerde que los ejercicios deben venir transcritos en el cuaderno, con la respectiva firma de su representante.1. Elabore la misma estructura presentada para 10 palabras con la letra B
2. Elabore un arreglo de 2 columnas X 2 filas en las cuales puedan almacenar:
1era Columna 2da Columna
---------------------- --------------------
NOMBRES APELLIDOS
--------------------- --------------------
Presente los resultados almacenados en un listbox
Archivo del ejercicio:
http://www.mediafire.com/?du5q5v75joeegz8
No hay comentarios:
Publicar un comentario