MR porojh

Mónica Michelle Leal Adame

Grupo: 23 Matricula: 1631320

Imports System.Console[pic 1]

Module Module1

    Sub Main()

        Dim tab(,), tam As Integer

        tam = Pedir_tam()

        ReDim tab(tam - 1, tam - 1)

        llenar_tab(tab)

        mostrar_tab(tab)

        ReadLine()

    End Sub

    Function Pedir_tam() As Integer

        Dim tamren, tamcol As Integer

        WriteLine("Introduce el tamaño del renglon")

        tamren = ReadLine()

        WriteLine("Introduce el tamaño de la columna")

        tamcol = ReadLine()

        Return (tamren)

        Return (tamcol)

    End Function

    Sub llenar_tab(ByVal tab(,) As Integer)

        For ren As Integer = 0 To tab.GetUpperBound(0)

            For col As Integer = 0 To tab.GetUpperBound(1)

                If ren = col Then

                    tab(ren, col) = 8

                Else

                    tab(ren, col) = 8

                End If

            Next

        Next

    End Sub

    Sub mostrar_tab(ByVal tab(,) As Integer)

        For ren As Integer = 0 To tab.GetUpperBound(0)

            For col As Integer = 0 To tab.GetUpperBound(1)

                Write(tab(ren, col) & "  ")

            Next

            WriteLine()

        Next

        Write(" Mónica Michelle Leal Adame " & " Mat: 1631320 " & " Gpo: 23")

    End Sub

End Module

...