Вывод двумерного массива- Basic(Бейсик)

DIM prompt AS STRING
....
prompt = ""
FOR i = 1 TO UBOUND(a,1)
  FOR j = 1 TO UBOUND(a,2)
   prompt = prompt & a(i, j) & " " 
  NEXT j
  prompt = prompt & Chr(13)
NEXT i
PRINT prompt