Дан двумерный массив размером 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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