Ejercicios de Visual Basic 10

ARREGLO MATRIZ, VECTOR

1. Insertamos los objetos con sus respectivos nombre

Objeto	Nombre	Caption
Form	frmArreglos	Arreglos
Label	lblVector	VECTOR
Listbox	lstVector
commandButton	cmdVector	LLENAR ELEMENTOS VECTOR
Label	lblMatriz	VECTOR
Listbox	lstMatriz
commandButton	cmdMatriz	LLENAR ELEMENTOS MATRIZ

EN EL PROGRAMA VISUALIZAMOS ASI

2. Colocamos el siguiente codigo 

Option Explicit
Dim matriz(3, 3) As Integer
Dim vector(10) As Integer
Dim i, j, k As Integer


Private Sub cmdMatriz_Click()
k = 1
For i = 0 To 2
For j = 0 To 2
matriz(i, j) = k
k = k + 1
Next j
Next i
For i = 0 To 2
For j = 0 To 2
Me.lstMatriz.AddItem matriz(i, j)
Next j
Next i
End Sub

Private Sub cmdVector_Click()
k = 1
For i = 0 To 9
vector(i) = k
Me.lstVector.AddItem vector(i)
k = k + 1
Next i
End Sub

EN EL PROGRAMA VISUALIZAMOS ASI

UNA VEZ TERMINADO PONEMOS EJECUTAR

Y  de este modo hemos terminado con este ejercicio