Как освоить вывод двумерного массива матрицей - VB

Узнай цену своей работы

Формулировка задачи:

Доброго всем здравия! брятья помогите мне освоить вывод двумерного массива матрицей. буду примного благодарен!

Решение задачи: «Как освоить вывод двумерного массива матрицей»

textual
Листинг программы
Private Sub Command1_Click()
Dim i As Integer, j As Integer, A() As Integer, m As Integer, n As Integer
m = 10                     ' Количество строк матрицы
n = 10                     ' Количество столбцов матрицы
ReDim A(1 To m, 1 To n)    ' Переобъявляем матрицу согласно новой размерности
For i = 1 To m             ' Пробегаем циклом по строкам
  For j = 1 To n           ' И вложенным циклом по столбцам
  A(i, j) = (Rnd * 8 + 1) ' Заполняем массив случайными числами
  Print A(i, j); vbTab;    ' Выводим на печать очередной элемент
                           ' массива( VBTab - для красоты,
                           ' точка с запятой - чтобы строка выводилась строкой, а не столбиком
  Next j
  Print                    ' Переход на следущую строку
Next i
End Sub

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы