Преобразование матрицы в одномерный массив по строкам - VB
Формулировка задачи:
Преобразование матрицы в одномерный массив по строкам.
Решение задачи: «Преобразование матрицы в одномерный массив по строкам»
textual
Листинг программы
Private Sub Command1_Click() Dim A() As Integer, temp() As Integer Dim n As Integer, m As Integer, k As Integer Dim i As Integer, j As Integer Randomize 'Иницилизация генератора случайных чисел Me.Cls 'Очищаем форму m = InputBox("Введите число строк", , 5) n = InputBox("Введите число столбцов", , 4) ReDim A(1 To m, 1 To n) ' Размеры матрицы А - m-строк, n-столбцов ReDim temp(1 To m * n) ' Размеры временного массива m*n Print "Исходная матрица" For i = 1 To m For j = 1 To n A(i, j) = Int(Rnd * 101) 'Заполняем матрицу случайными числами Print A(i, j); vbTab; k = k + 1 temp(k) = A(i, j) 'Заполняем временный одномерный массив значениями строк матрицы Next j Print Next i ReDim A(1 To m * n) 'Преобразовываем двумерную матрицу в одномерный массив A = temp Print Print "Матрица преобразованная в одномерный массив" For i = 1 To m * n Print A(i); Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д