Как удалить и(ли) вставить строки в двумерном массиве - VB
Формулировка задачи:
помогите с удаление и вставкой строки в двумерном массиве
Подскажите программный код самаго процесс вставки и удаления строк при каком-либо условии
Решение задачи: «Как удалить и(ли) вставить строки в двумерном массиве»
textual
Листинг программы
Private Sub Command1_Click() Dim max, i, j, f As Double Dim X() As Double Dim y() As Double Dim k As Integer Dim s As Integer Dim i_1 As Double Cls ReDim X(1 To 5, 1 To 5) For i = 1 To 5 For j = 1 To 5 X(i, j) = Int(Rnd * 20 - 1) Print X(i, j); vbTab; Next j Print Next i Print vbLf max = X(1, 1) For i = 1 To 5 For j = 1 To 5 If X(i, j) > max Then max = X(i, j) Next j Next i Print "ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ ="; max s = 0 For i = 1 To 5 k = 0 For j = 1 To 5 If X(i, j) = max Then k = k + 1 End If Next j If k <> 0 Then s = s + 1 Next i Print "Êîëè÷åñòâî ñòðîê èìåþùèõ Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ ="; s ReDim y(1 To 5 + s, 1 To 5) i_1 = 1 For i = 1 To 5 k = 0 For j = 1 To 5 y(i_1, j) = X(i, j) If X(i, j) = max Then k = k + 1 End If Print y(i_1, j); Next j If k <> 0 Then Print i_1 = i_1 + 1 For j = 1 To 5 y(i_1, j) = X(5, j) Print y(i_1, j); Next j End If Print i_1 = i_1 + 1 Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д