Как удалить и(ли) вставить строки в двумерном массиве - 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

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


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

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

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