Crear un programa que permita definir una matriz NxM y que sume su esquinas
'Definir Variables en el Formulario.
Dim a, b As Integer
Dim fila, columna As Byte
'1er Button "Agregar".
Dim i As Byte
fila = Val(Me.TextBox1.Text)
columna = Val(Me.TextBox2.Text)
Me.DataGrid.ColumnCount = columna
Me.DataGrid.RowCount = fila
Me.DataGrid.RowHeadersWidth = 70
For i = 0 To columna - 1
Me.DataGrid.Columns(i).Width = 40
Me.DataGrid.Columns(i).HeaderText = i + 1
Next
For i = 0 To fila - 1
Me.DataGrid.Rows(i).HeaderCell.Value = (i + 1).ToString
Next
'2do Button "Esquinas".
Dim numero As Integer
Dim numero1 As Integer
Dim numero2 As Integer
Dim numero3 As Integer
Dim sum1
numero = Me.DataGrid.Rows(0).Cells(0).Value
numero1 = Me.DataGrid.Rows(0).Cells(columna - 1).Value
numero2 = Me.DataGrid.Rows(fila - 1).Cells(0).Value
numero3 = Me.DataGrid.Rows(fila - 1).Cells(columna - 1).Value
sum1 = numero + numero1 + numero2 + numero3
TextBox3.Text = sum1
La matriz se define por teclado y se agrega valores desde la DataGrid
