Как удалить и(ли) вставить строки в двумерном массиве - VB

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

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

помогите с удаление и вставкой строки в двумерном массиве Подскажите программный код самаго процесс вставки и удаления строк при каком-либо условии

Решение задачи: «Как удалить и(ли) вставить строки в двумерном массиве»

textual
Листинг программы
  1. Private Sub Command1_Click()
  2. Dim max, i, j, f As Double
  3. Dim X() As Double
  4. Dim y() As Double
  5. Dim k As Integer
  6. Dim s As Integer
  7. Dim i_1 As Double
  8. Cls
  9. ReDim X(1 To 5, 1 To 5)
  10. For i = 1 To 5
  11.     For j = 1 To 5
  12.         X(i, j) = Int(Rnd * 20 - 1)
  13.         Print X(i, j); vbTab;
  14.     Next j
  15.     Print
  16. Next i
  17. Print vbLf
  18. max = X(1, 1)
  19. For i = 1 To 5
  20.     For j = 1 To 5
  21.         If X(i, j) > max Then max = X(i, j)
  22.     Next j
  23. Next i
  24. Print "ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ ="; max
  25. s = 0
  26. For i = 1 To 5
  27.     k = 0
  28.     For j = 1 To 5
  29.         If X(i, j) = max Then
  30.         k = k + 1
  31.         End If
  32.     Next j
  33.     If k <> 0 Then s = s + 1
  34. Next i
  35. Print "Êîëè÷åñòâî ñòðîê èìåþùèõ Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ ="; s
  36. ReDim y(1 To 5 + s, 1 To 5)
  37. i_1 = 1
  38.   For i = 1 To 5
  39.     k = 0
  40.     For j = 1 To 5
  41.         y(i_1, j) = X(i, j)
  42.  
  43.             If X(i, j) = max Then
  44.                 k = k + 1
  45.             End If
  46.             Print y(i_1, j);
  47.     Next j
  48.             If k <> 0 Then
  49.             Print
  50.                 i_1 = i_1 + 1
  51.                 For j = 1 To 5
  52.                     y(i_1, j) = X(5, j)
  53.                 Print y(i_1, j);
  54.                 Next j
  55.  
  56.             End If
  57.             Print
  58.             i_1 = i_1 + 1
  59. Next i
  60. End Sub

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


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

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

10   голосов , оценка 4.1 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы