Как освоить вывод двумерного массива матрицей - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д