algoritmo

Module Module1
Sub Main()
Dim a As Integer
Dim l As String
Dim t As Integer
Dim f2, c2 As Integer
System.Console.BackgroundColor = ConsoleColor.BlackDo

System.Console.ForegroundColor = ConsoleColor.Blue
Console.Clear()
Console.WriteLine()
Console.WriteLine()Console.WriteLine(" O P C I O N E S D I S P O N I B L E S ")
System.Console.ForegroundColor = ConsoleColor.DarkRed
Console.WriteLine("1.llenar matriz")Console.WriteLine("2.imprimir matriz")
Console.WriteLine("3.llenar matriz")
Console.WriteLine("4.sumar")
Console.WriteLine("5.promedio")
Console.WriteLine("6.ladiagonal principal")
Console.WriteLine("7.la diagonal secundaria")
Console.WriteLine("8.el mayor valor y su posicion es")
Console.WriteLine("9.el menor valor y suposicion es")
Console.WriteLine("10.la multiplicacion de un numero por los valores de la matriz")
Console.WriteLine("11.la suma de dos matriz")Console.WriteLine("12.la multiplicacion de dos matriz")
a = Console.ReadLine
System.Console.BackgroundColor = ConsoleColor.Black

Select Case a

Case Is = 1llenarmatriz(m)
Case Is = 2
imprimirmatriz(m)
Case Is = 3
llenarmatriz(m)
Case Is = 4t = sumar(m)
Console.Write(" la suma de los elementos de la matriz es : {0}", Format(t, "n2"))
Case Is = 5Console.Write("el promedio de la suma de la materia es : {0}", Format(t / (c * f)), "n2")
Case Is = 6
If c = f Then
Console.WriteLine("los elementos...