programación en visual basic

Dada la matriz B:
2

1

3

1

Ingresar el valor que imprime el siguiente algoritmo:
For i = 1 To 2
r=i+1
m = i - (r - 2)
a = B(m, r - 1)
For k = r To 2
If (a > B(m, k)) Then
a = B(m,r - 1)
B(m, r - 1) = B(m, k)
B(m, k) = a
End If
Next k
a = B(i, i)
B(i, i) = B(m, r - 1)
B(m, r - 1) = a
Next i

TextBox1 = a + B(2, 2) + m

Posiciones de la matriz:
B(1,1) = Quieredecir la posición que se encuentra en la fila 1 con columna 1.
B(1,2) = Quiere decir la posición que se encuentra en la fila 1 con columna 2.
B(2,1) = Quiere decir la posición que se encuentra en lafila 2 con columna 1.
B(2,2) = Quiere decir la posición que se encuentra en la fila 2 con columna 2.
B(1,1) = 2
B(1,2) = 1
B(2,1) = 3
B(2,2) = 1

A medida que se modifiquen los valores de loselementos de la matriz, se irá
actualizando la matriz.
Se empieza el ciclo for i = 1 to 2
i=1
r=i +1=1+1=2
m = i – (r – 2) = 1 – (2 – 2) = 1– 0 = 1
a = B(m,r – 1)  a = B(1, 2 – 1)  a = B(1,1)  a= 2
Se empieza el ciclo for k = r to 2, donde r = 2
k =2
if(a > B(m,k))  if(2 > B(1,2))  if(2 > 1) Cumple
a = B(m, r – 1)  a = B(1, 2 – 1)  a = B(1,1)  a = 2
B(m, r - 1) = B(m, k)  B(1,2 –1) = B(1,2)  B(1,1) = 1
B(m, k) = a  B(1,2) = 2
End if
Next k  k = k + 1 = 2 + 1 = 3
k = 3  “ya está fuera del rango”
Sale del ciclo for k = r to 2, con r = 2
Continua en el ciclo for i = 1to 2

B(1,1) = 1
B(1,2) = 2
B(2,1) = 3
B(2,2) = 1

Sigue estando en i = 1

a = B(i,i)  a = B(1,1)  a = 1
B((i,i) = B(m, r – 1 )  B(1,1) = B(1,2-1)  B(1,1) = B(1,1)  B(1,1) = 1 ‘Quedaigual
B(m, r – 1) = a  B(1,2-1) = 1  B(1,1) = 1 ‘Queda igual
Next i  i = i +1 = 2 súmele a “i” los pasos
i=2
r=i +1=2+1=3
m = i – (r – 2) = 2 – (3 – 2) = 2– 1 = 1
a = B(m,r – 1)  a = B(1, 3 –1)  a = B(1,2)  a = 2
Se empieza el ciclo for k = r to 2, donde r = 3 

k=rk=3
Se salta hasta la instrucción que está después de next k, ya que ni siquiera entra a un ciclo.
Es decir, Toda...