Как удалить и(ли) вставить строки в двумерном массиве - 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
- 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
- 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
- i_1 = i_1 + 1
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д