document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Sub muestra() As Integer[]
  2.   Dim a, b As Integer
  3.   Dim texto As New Integer[7, 7]
  4.   For a = 0 To 6
  5.     For b = 0 To 6
  6.       \'     Print hcasillas[a, b];
  7.       texto[a, b] = hcasillas[a, b]
  8.     Next
  9.     \'  Print gb.CrLf
  10.   Next
  11.   \' Print "-------"
  12.   \' Print "1234567"
  13.   Return hcasillas \'texto
  14. End
');