Удалить из массива все элементы, первая и последняя цифра которых четная - VB
Формулировка задачи:
нуждаюсь в помощи
1. Заполнить массив из n элементов случайными целыми числами из про-
межутка [-135,175].
2. Удалить из него все элементы, первая и последняя цифра которых чет-
ная.
3. Вставить число К1 после всех элементов, больших заданного числа, а
число К2 – после всех элементов, кратных пяти
Решение задачи: «Удалить из массива все элементы, первая и последняя цифра которых четная»
textual
Листинг программы
Option Explicit ' ' © FelixMacintosh ' Антихакер32™ ' Private Sub Form_Unload(Cancel As Integer) Const c& = 100, c1& = 10 Dim s$, j$(), j1$(), j2$(), f&, i& Ret: Randomize Timer: i = 0 ReDim Preserve j(c - 1) For f = 0 To c - 1: j(f) = -135 + Fix(Rnd * (276 + 135)): Next: j1 = j For f = 0 To UBound(j) Step 2: j1(i) = j(f): i = i + 1: Next: j2 = j For f = 0 To UBound(j) Step 5: j2(f) = "©": Next 'Уничтожение лишних индексов для отображения ReDim Preserve j(c1): ReDim Preserve j1(c1): ReDim Preserve j2(c1) Cls Print "Сгенерированный массив = "; Join(j, ", ") Print "Выходной массив = "; Join(j1, ", ") Print "Вставка в каждый 5-й = "; Join(j2, ", ") Select Case MsgBox("", vbAbortRetryIgnore) Case vbRetry: GoTo Ret Case vbIgnore: Cancel = 1 End Select End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д