alaska_101 compak
27 de Mayo del 2011

Espero y alguien me pudiera proporcionar el código de un programa en Visual Basic 6; que sea de arreglos bimensionales. Y si es posible algo parecido a este programa, espero y alguien me de su apoyo, y la instrucción de los que hace el programa. De antemano muchas gracias espero y me pueden ayudar.

Ejemplo; este programa lee las mensualidades de costos de diferentes carros y saca las sumas:
Option Explicit
Dim A(1 To 10, 1 To 10) As Single, b(1 To 10) As Single, c(1 To 10) As Single
Dim fila As Integer, columna As Integer, linea As String, j As Integer, i As Integer

Private Sub cmdSalir_Click()
End
End Sub

Private Sub Form_Load()

fila = InputBox("FILAS")
columna = InputBox("COLUMNAS")
'arreglo uno'
For i = 1 To fila
For j = 1 To columna
A(i, j) = InputBox("a (" & i & "," & j & ")")
Next j
Next i

For i = 1 To fila
linea = " "
For j = 1 To columna
linea = linea + CStr(A(i, j)) + " "
Next j
LstA.AddItem linea
Next i

'arreglo dos'
For j = 1 To columna
b(j) = InputBox("b (" & j & ")")
LstB.AddItem b(j)
Next j





'operacion'
For i = 1 To fila
For j = 1 To columna
c(i) = c(i) + A(i, j) * b(j)
Next j
LstC.AddItem c(i)
Next i



End Sub