Удалить из массива все строки содержащие ноль - VB

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

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

Помогите пожалуйста, написал код, но в коде где нужно поменять местами две средние строки меняет только когда нечетные столбцы, а в 4 задании не удаляются строки а удаляются столбцы

Решение задачи: «Удалить из массива все строки содержащие ноль»

textual
Листинг программы
Private Sub Command4_Click()
Picture2.Cls
k = 0
ReDim mas_tmp(n - 1, m - 1)
For i = 0 To n - 1
    For j = 0 To m - 1
        mas_tmp(i - k, j) = mas(i, j)
        If mas(i, j) = 0 Then k = k + 1: Exit For
    Next
Next
ReDim mas(n - 1 - k, m - 1)
mas = mas_tmp
For i = 0 To n - 1 - k
    t = ""
    For j = 0 To m - 1
        t = t & mas(i, j) & vbTab
    Next
    Picture2.Print t
Next
End Sub

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


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

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

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