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