Вставка элемента в одномерный массив целых чисел - VB

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

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

Помогите написать на VB программу для вставки элементов в одномерный массив целых чисел

Решение задачи: «Вставка элемента в одномерный массив целых чисел»

textual
Листинг программы 
Sub Add2Arr(ByRef Arr, Data)
'добавляет данные в конец массива
  ReDim Preserve Arr(UBound(Arr) + 1)
  Arr(UBound(Arr)) = Data
End Sub
 
Sub Add2Arr(ByRef Arr, Data)
'добавляет данные в конец массива
'если массив пустой то в Arr(0)
  On Error GoTo 1:
  ReDim Preserve Arr(UBound(Arr) + 1)
  Arr(UBound(Arr)) = Data
  Exit Sub
1:
  ReDim Arr(0)
  Arr(0) = Data
End Sub

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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