dim sum as integer
for i as Integer = 0 to size - 1
for j as Integer = 0 to size - 1
sum = 0
for k as Integer = 0 to size - 1
sum = sum + (matrixA(k,i)*matrixB(j,k))
next
matrixP(j,i) = sum
next
next