Imports System
Public Module Module1
Public Sub Main()
Dim m(2,2) as Integer
Dim vf(2) as Integer
Dim vc(2) as Integer
Dim vr(5) as Integer
Dim cont as Integer = 0
for i = 0 to 2 step 1
for j = 0 to 2 step 1
Console.WriteLine("Ingrese el valor en la matriz en la posicion "&(i &","& j))
m(i,j) = Console.ReadLine()
next
vf(i) = vf(i) + m(i,j)
vc(j) = vc(j) + m(i,j)
for i = 0 to 5 step 1
if (i<=2) then
vr(i) = vf(i)
else
vr(i) = vc(cont)
cont = cont + 1
end if
Console.WriteLine("La sumatoria en filas y columnas es :")
console.Write("|"&vr(i))
End Sub
End Module