Foro de elhacker.net

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 :

(http://img146.imageshack.us/img146/216/11567586.jpg)

4:aki el

 

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