Дан двумерный массив размером n*m - VB
Формулировка задачи:
Дан двумерный массив размером n*m.
1. Заменить элемент кратный трем каждого столбца нулем
2. Вставить после каждого столбца, начиная со второго первый столбец.
3. Удалить из него каждый столбец, содержащий элемент, кратный пяти
4. Поменять местами третий и последний столбцы.
Помогите с решением задачи!
Решение задачи: «Дан двумерный массив размером n*m»
textual
Листинг программы
Private B() As Integer, A() As Integer, X() As Integer, n As Byte, m As Byte, u As Byte Private Sub CmdDelete_Click() Dim k As Byte, i As Byte, p As Byte, r As Byte k = InputBox("Введите удаляемый столбец", "Удаление") Form1.Cls Print: Print: Print "Массив A:" ReDim X(1 To m * (n - 1)) p = 0 r = 0 For i = 1 To m For u = 1 + p To k - 1 + p X(u) = B(u + r) Print X(u); Print vbTab; Next u For u = k + p To n + p - 1 X(u) = B(u + 1 + r) Print X(u); Print vbTab; Next u p = p + n - 1 r = r + 1 Print Next i End Sub Private Sub Form_Load() Dim j As Byte, i As Byte Randomize Timer m = InputBox("Введите количество строк в массиве A", "Ввод") n = InputBox("Введите количество столбцов в массиве A", "Ввод") ReDim A(1 To m, 1 To n) As Integer ReDim B(1 To m * n) As Integer Print: Print: Print "Массив A:" For i = 1 To m For j = 1 To n A(i, j) = Rnd * 10 - 5 Print A(i, j); Print vbTab; u = (i - 1) * n + j B(u) = A(i, j) Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д