Вывести массив на печать можно следующими способами:
1) в рабочий лист Excel – для этого используется известная уже функция Cells:
для одномерного массива: | для двумерного массива: |
For i = 1 To n ‘вывод в 10 строку рабочего ‘листа Cells(10, i) = a(i) Next i | For i = 1 To n For j = 1 To m ‘вывод начинается с ‘5 строки 4 столбца Cells(i+5, j+4) = a(i, j) Next j Next i |
2) в диалоговое окно. Для этого весь массив переписывается в какую-либо одну текстовую переменную (например Text), которая и выводится в диалоговое окно. При выводе двумерного массива перед выводом необходимо сформировать строки и столбцы. Для этого используется функция Chr (13) – перевод каретки, которая при заполнении строки переводит курсор на начало следующей строки и Chr (9) – вставляет символ табуляции между элементами массива в строке. Здесь также массив предварительно записывается в текстовую переменную, которая выводится в диалоговое окно.
Для одномерного массива: | Для двумерного массива: | |
Text = "" For i = 1 To n Text = Text & a(i) & Chr(9) Next i MsgBox "Массив:"&Chr(13)& Text | Text ="" For i = 1 To n For j = 1 To m Text = Text & a(i, j) & Chr(9) Next j Text = Text & Chr(13) Next i MsgBox "Массив:" & Chr(13) & Text | |