Generar y Sumar matrices Dejen comentarios ...

[_-Javier-_]

1_Bueno aki les presento un ejercicio simple de como generar y sumar matrices
2_Utilizare visual studio 2008 (creamos un nueco proyecto de tipo Formulario windows)
3_Aki la interfaz :



4:aki el

Código (vbnet) [Seleccionar] Expandir


Public Class frmsuma

'declaramos variables privadas
   Private m As Integer(,)
   Private m2 As Integer(,)
   Private m3 As Integer(,)

 Button1
       ReDim m(2, 2) 'redimensionamos una matriz de 3*3
       ReDim m2(2, 2)
       ReDim m3(2, 2)
       Dim fil, col As Integer
       Dim r As New Random
       'generamos la matriz
       For fil = 0 To 2
           For col = 0 To 2
               m(fil, col) = r.Next(10, 15)
               m2(fil, col) = r.Next(5, 20)
           Next
       Next
       'mostramos la matriz en el listview
       lvw1.Items.Clear() 'clear para q limpie la lista cada ves q generamos
       lvw2.Items.Clear() 'clear para q limpie la lista cada ves q generamos
       lvw3.Items.Clear() 'clear para q limpie la lista cada ves q generamos
       For fil = 0 To 2
           lvw1.Items.Add(m(fil, 0))
           lvw2.Items.Add(m2(fil, 0))
           For col = 0 To 2
               lvw1.Items(fil).SubItems.Add(m(fil, col))
               lvw2.Items(fil).SubItems.Add(m(fil, col))
           Next
       Next
       lvw3.Items.Clear()
   End Sub

==aki code del btnsm

       Dim fil, col As Integer
       For fil = 0 To 2
           For col = 0 To 2
               m3(fil, col) = m(fil, col) + m2(fil, col)
           Next
       Next
       lvw3.Items.Clear()
       For fil = 0 To 2
           lvw3.Items.Add(m3(fil, 0))
           For col = 0 To 2
               lvw3.Items(fil).SubItems.Add(m3(fil, col))
           Next
       Next
   
End Class

_Ojala les sirva