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

disel
1
2
3
4
5
6
7
8
9
10
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

Похожие записи/страницы:

Leave a Comment