Recorrer Matriz De Dos Formas Y Jugar Más Con El Datagridview Para Ver Matrices

Recorrer matriz de dos formas y jugar más con el DataGridView para ver matrices
Public Class Form1 Const fmax As Integer = 2 ' recordar que filavariara entre 0 y fmax, por tanto habra (fmax+1) filas Const cmax As Integer = 2 ' recordar que columna variara entre 0 y cmax, por tanto habra(cmax+1) columnas Const anchocolumn = 25 Dim m(fmax, cmax) As Integer 'En otros lenguajes las dimensiones son constantes y asi lo hacemos aqui 'pero otrodia probaremos como dar dimensiones variables e incluso redimensionar Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load Dim s1 As Integer = 0 Dim s2 As Integer = 0 ' Crear la rejilla por codigo For c = 0 To cmaxDataGridView1.Columns.Add("Columna_" & c, "Columna_" & c) DataGridView1.Columns("Columna_" & c).Width = anchocolumn Next c For f = 0 To fmax - 1 ' en cuanto hay alguna columna seagrega automaticamente una fila DataGridView1.Rows.Add() Next 'Ajustar el ancho segun el numero de columnas DataGridView1.Width =DataGridView1.Columns.Count * anchocolumn + DataGridView1.RowHeadersWidth + 1 * 2 'rellenar la matriz y el datagridview For f = 0 To fmax For c = 0 To cmax m(f, c) = f * 10+ c DataGridView1.Rows(f).Cells(c).Value = m(f, c) Next c Next f 'sumar forma 1 For f = 0 To fmax For c = 0 To cmax s1 = s1 + m(f, c) Next NextLabel1.Text = "s1 vale " & s1 'sumar forma 2 For Each elemento In m s2 = s2 + elemento Next elemento Label2.Text = "s2 vale " & s2 End Sub End Class