CONCEPTO DE MATRIZ O ARRAY EN VISUAL BASIC
Es un grupo de controles que comparten el mismo nombre y el mismo tipo. También comparten los mismos procedimientos de evento. Las matrices de controles tienen al menos un elemento y pueden crecer hasta contener tantos elementos como permitan los recursos y la memoria del sistema; su tamaño dependen también de la memoria y de los recursos de Windows requeridos por cada control. El índice máximo que puede usar en una matriz de controles es 32 767. Los elementos de una misma matriz de controles tienen sus propio valor de propiedades. Entre los mas usados están los controles de menú y las agrupaciones de botones de opción.
Sub main()
Dim matriz(3, 3) As Integer
Lectura matriz
presenta matriz
End Sub
Sub Lectura(matriz() As Integer)
Dim fil As Integer
Dim col As Integer
For fil = 0 To 2
For col = 0 To 2
matriz(fil, col) = InputBox("Ingrese numero [" & fil & "][" & col & "]")
Next
Next
End Sub
Sub presenta(matriz() As Integer)
Dim i As Integer
Dim j As Integer
Dim cad As String
For i = 0 To 2
For j = 0 To 2
cad = cad & matriz(i, j) & " "
Next
cad = cad & vbCrLf
Next
MsgBox (cad)
End Sub
Dim matriz(3, 3) As Integer
Lectura matriz
presenta matriz
End Sub
Sub Lectura(matriz() As Integer)
Dim fil As Integer
Dim col As Integer
For fil = 0 To 2
For col = 0 To 2
matriz(fil, col) = InputBox("Ingrese numero [" & fil & "][" & col & "]")
Next
Next
End Sub
Sub presenta(matriz() As Integer)
Dim i As Integer
Dim j As Integer
Dim cad As String
For i = 0 To 2
For j = 0 To 2
cad = cad & matriz(i, j) & " "
Next
cad = cad & vbCrLf
Next
MsgBox (cad)
End Sub
No hay comentarios:
Publicar un comentario